R: create generic plot in ggplot2 -


trying create line chart representing simple slopes analysis. created plot using builtin plot() command. how rewrite code ggplot2? tried in ggplot2 couldn't achieve figure wrote using plot().

here code used create plot.

yrange = c(4,7) xrange = c(-1.5,1.5) par(bty = 'l') par(family="times") plot(c(-1, 1), c(5.8, 6.2), type='b', lty=1, pch = 15, axes=f, xlab="", ylab="", ylim=yrange, xlim=xrange) par(new = t) plot(c(-1, 1), c(5.3, 5.5), type='b', lty=2, pch = 17, axes=f, xlab="iv1", ylab="dv", ylim=yrange, xlim=xrange) axis(1, at=c(-1,1), labels=c("cond1", "cond2")) axis(2, at=c(4, 5,6,7)) legend("topright", title = "moderator", c("high", "low"), lty=1:2) box()

here code used while trying create above figure using ggplot2. couldn't fiture out how create legend moderator, how change x-axis labels, add boxes/triangles/circles end of lines, or otherwise set lines proper publication quality apa figure::

ggplot(df) +   geom_segment(aes(x = -1, y = 5.8, xend = +1, yend = 6.2), linetype = 1) +    geom_segment(aes(x = -1, y = 5.3, xend = +1, yend = 5.5), linetype = 2) +    labs(x = 'iv1', y = 'dv') +   coord_cartesian(ylim = c(4, 7)) +     scale_x_continuous(breaks=seq(-1, +1, 2)) +     theme(legend.position = "bottom")

and, sorry, first post here. interested in using ggplot2 more it's got steep learning curve, r.

@pdubbs - updated code make closer situation. noted below, i'm trying plot 2x2 interactions between 2 continuous variables , figure i'm creating visualize interaction using simple slopes regression analysis. here happens , output when run code:

> df<-data.frame(dv = c(5.8,5.3,6.2,5.5),  +                moderator = c(1,2,3,4),  +                iv1 = c(6,4,3,2)) >  > ggplot(df,aes(x=iv1,y=dv,shape=moderator)) + geom_point() + +   geom_segment(aes(x = 1, y = 5.8, xend = 2, yend = 6.2), linetype = 1) +  +   geom_segment(aes(x = 1, y = 5.3, xend = 2, yend = 5.5), linetype = 2) +  +   labs(x = 'iv1', y = 'dv') + +   coord_cartesian(ylim = c(4, 7)) +   +   theme(legend.position = "bottom") error: continuous variable can not mapped shape

a couple last changes can't figure out. how increase size endpoints of lines? instance, make triangles larger?

a couple other issues legend. first, how put black box around legend? not black background, simple black box outline around legend. second, how add solid or dashed line legend in addition circle or triangle? third, how center legend title text? see generic plot code example of mean 3 of these.

your problem seems you're lacking aesthetic , layer data points. geom_point plot datapoints, giving legend , shapes on lines want. aes inside main ggplot command tells ggplot how data in df should plotted. can plot below:

df<-data.frame(dv = c(5.8,5.3,6.2,5.5),                 moderator = c("high", "low", "high", "low"),                 iv1 = c("cond1","cond1","cond2","cond2"))  ggplot(df,aes(x=iv1,y=dv,shape=moderator)) + geom_point() +   geom_segment(aes(x = 1, y = 5.8, xend = 2, yend = 6.2), linetype = 1) +    geom_segment(aes(x = 1, y = 5.3, xend = 2, yend = 5.5), linetype = 2) +    labs(x = 'iv1', y = 'dv') +   coord_cartesian(ylim = c(4, 7)) +     theme(legend.position = "bottom")

Comments

Post a Comment

Popular posts from this blog

How to understand 2 main() functions after using uftrace to profile the C++ program? -

i trying uftrace profile following simple c++ program: #include <iostream> class { public: a() {std::cout << "a created" << std::endl;} ~a() {std::cout << "a destroyed" << std::endl;} }; int main() { a; return 0; } the profile result this: # uftrace a.out created destroyed # duration tid function 2.026 [ 4828] | __cxa_atexit(); [ 4828] | main() { [ 4828] | __static_initialization_and_destruction_0() { 89.397 [ 4828] | std::ios_base::init::init(); 0.768 [ 4828] | __cxa_atexit(); 93.029 [ 4828] | } /* __static_initialization_and_destruction_0 */ 94.425 [ 4828] | } /* main */ [ 4828] | main() { [ 4828] | a::a() { 11.104 [ 4828] | std::operator <<(); 10.825 [ 4828] | std::basic_ostream::operator <<(); 24.514 [ 4828] | } /* a::a */ [ 4828] | a::~a() { 0.978 [ 4828] | ...
Read more

c# - Update a combobox from a presenter (MVP) -

i using mvp in project, new in mvp. have 2 comboboxes. when select option in combobox, combobox should filled new data. this action in presenter. view 'view1' in presenter, , introduced combobox1 , combobox2 properties in 'view1', because need 'datasource', 'displaymember', 'valuemember' , 'refresh()' in method below. but, when using pattern, enough send property like public string combobox2 { { return combobox1.selectedvalue.tosstring(); } } into presenter not whole combobox. how can solve problem? public void onselectedindexchangedcombobox1() { if (view1.combobox1.selectedindex == -1) { return; } datatable dt = tools.getdatatable("a path"); var query = (from o in dt.asenumerable() o.field<string>("afield") == farmerview.combobox1.selectedvalue.tostring() orderby o.field<string>("anotherfield") select...
Read more

How to put a lock and transaction on table using spring 4 or above using jdbcTemplate and annotations like @Transactional? -

i trying put lock on table while writing on table , if happened in between roll-back . trying convert below code lock table test_g1 read; lock table test_g write; -- begin; start transaction; insert test_g1 values(143); insert test_g values(145); select * test_g1; select * test_g; rollback; select * test_g; unlock tables; how convert above code @transactional spring jdbctemplate code? @transactional(rollbackfor={dataaccessexception.class}) public void test(){ jdbctemplate.execute("insert test1 (id, nam) values (4, 'a')"); throw new dataaccessexception("error") { }; } here trying throw error, insert statement should rollback it's not happening . thanks edit-1 attaching code , doing in jdbcdaoimpl.java , mentioned problem comment above test() . app.java package com.cgiri.javabrains.spring4; import org.springframework.beans.factory.annotation.autowired; import org.springframework.context.applic...
Read more