Plot multiple columns on the same graph in R [duplicate]

Question

I have the following data frame:

A       B       C       D       Xax
0.451   0.333   0.034   0.173   0.22        
0.491   0.270   0.033   0.207   0.34    
0.389   0.249   0.084   0.271   0.54    
0.425   0.819   0.077   0.281   0.34
0.457   0.429   0.053   0.386   0.53    
0.436   0.524   0.049   0.249   0.12    
0.423   0.270   0.093   0.279   0.61    
0.463   0.315   0.019   0.204   0.23

I need to plot all these columns in the same plot(on the x-axis I want the variable Xax and the y-axis the variables A,B,C and D) and also to draw the regression line for each variable alone.

I tried this:

pl<-ggplot(data=df) + geom_point(aes(x=Xax,y=A,size=10)) + 
  geom_point(aes(x=Xax,y=B,size=10)) + 
  geom_point(aes(x=Xax,y=C,size=10)) + 
  geom_point(aes(x=Xax,y=D,size=10)) + 
  geom_smooth(method = "lm", se=FALSE, color="black")

But it's only plotting the first one(Xax and A)

Vincent Zoonekynd · Accepted Answer · 2012-03-02 22:31:13Z

76

The easiest is to convert your data to a "tall" format.

s <- 
"A       B        C       G       Xax
0.451   0.333   0.034   0.173   0.22        
0.491   0.270   0.033   0.207   0.34    
0.389   0.249   0.084   0.271   0.54    
0.425   0.819   0.077   0.281   0.34
0.457   0.429   0.053   0.386   0.53    
0.436   0.524   0.049   0.249   0.12    
0.423   0.270   0.093   0.279   0.61    
0.463   0.315   0.019   0.204   0.23
"
d <- read.delim(textConnection(s), sep="")

library(ggplot2)
library(reshape2)
d <- melt(d, id.vars="Xax")

# Everything on the same plot
ggplot(d, aes(Xax,value, col=variable)) + 
  geom_point() + 
  stat_smooth() 

# Separate plots
ggplot(d, aes(Xax,value)) + 
  geom_point() + 
  stat_smooth() +
  facet_wrap(~variable)

edited Mar 2, 2012 at 22:31

answered Mar 2, 2012 at 11:02

Vincent Zoonekynd

32.5k5 gold badges74 silver badges80 bronze badges

Sign up to request clarification or add additional context in comments.

15 Comments

ifreak Over a year ago

i did not get the solution?? this is a small part if the dataframe, it's much bigger. can you please explain the answer and apply it on the original data frame??

ifreak Over a year ago

and btw this is not working :/

ifreak Over a year ago

my data frame is around 500 row. but i tried to copy the same code that Vincent provided and tried it outside my script and it did not worked also. that's what i meant with it did not worked..

Vincent Zoonekynd Over a year ago

To be able to help, we need to know what you mean by "it did not work": was there any error message?

ifreak Over a year ago

yes, the error msg was on the close(s) thing which i did not understand. but now after removing it i have a plot but i also have a Warning message: closing unused connection 3 (s). but in all cases my data frame is bigger, how i can adapt the script to work on bigger data frames?? and btw, in this case how i should adapt a linear regression to each variable since all the variables are metled??

|

Alessandro Jacopson · Accepted Answer · 2012-08-28 07:09:40Z

14

A very simple solution:

df <- read.csv("df.csv",sep=",",head=T)
x <- cbind(df$Xax,df$Xax,df$Xax,df$Xax)
y <- cbind(df$A,df$B,df$C,df$D)
matplot(x,y,type="p")

please note it just plots the data and it does not plot any regression line.

answered Aug 28, 2012 at 7:09

Alessandro Jacopson

18.8k16 gold badges107 silver badges159 bronze badges

Comments

shiny · Accepted Answer · 2017-09-21 02:44:48Z

5

Using tidyverse

df %>% tidyr::gather("id", "value", 1:4) %>% 
  ggplot(., aes(Xax, value))+
  geom_point()+
  geom_smooth(method = "lm", se=FALSE, color="black")+
  facet_wrap(~id)

DATA

df<- read.table(text =c("
A       B       C       G       Xax
0.451   0.333   0.034   0.173   0.22        
0.491   0.270   0.033   0.207   0.34    
0.389   0.249   0.084   0.271   0.54    
0.425   0.819   0.077   0.281   0.34
0.457   0.429   0.053   0.386   0.53    
0.436   0.524   0.049   0.249   0.12    
0.423   0.270   0.093   0.279   0.61    
0.463   0.315   0.019   0.204   0.23"), header = T)

edited Sep 21, 2017 at 2:44

answered Sep 14, 2017 at 22:54

shiny

3,52211 gold badges49 silver badges81 bronze badges

Comments

user3226167 · Accepted Answer · 2018-03-02 03:09:26Z

0

To select columns to plot, I added 2 lines to Vincent Zoonekynd's answer:

#convert to tall/long format(from wide format)
col_plot = c("A","B")
dlong <- melt(d[,c("Xax", col_plot)], id.vars="Xax")  

#"value" and "variable" are default output column names of melt()
ggplot(dlong, aes(Xax,value, col=variable)) +
  geom_point() + 
  geom_smooth()

Google "tidy data" to know more about tall(or long)/wide format.

answered Mar 2, 2018 at 3:09

user3226167

3,4995 gold badges34 silver badges37 bronze badges

Collectives™ on Stack Overflow

Plot multiple columns on the same graph in R [duplicate]

4 Answers 4

15 Comments

Comments

Comments

Comments

Linked

Hot Network Questions

Collectives™ on Stack Overflow

4 Answers 4

15 Comments

Comments

Comments

Comments

Linked

Related