我想绘制多个单独的图,到目前为止,我有以下代码:
但是,我不希望我的数据集中的最后一列;它使ggplot2绘制x变量与x变量。
library(ggplot2)
require(reshape)
d <- read.table("C:/Users/trinh/Desktop/Book1.csv", header=F,sep=",",skip=24)
t<-c(0.25,1,2,3,4,6,8,10)
d2<-d2[,3:13] #removing unwanted columns
d2<-cbind(d2,t) #adding x-variable
df <- melt(d2, id = 't')
ggplot(data=df, aes(y=value,x=t) +geom_point(shape=1) +
geom_smooth(method='lm',se=F)+facet_grid(.~variable)
我尝试添加
data=subset(df,df[,3:12])
但我不认为我写得正确。请指教。感谢。
答案 0 :(得分:2)
以下是您如何使用数据(虹膜)作为示例:
(i)用所有变量绘图
df <- reshape2::melt(iris, id="Species")
ggplot(df, aes(y=value, x=Species)) + geom_point() + facet_wrap(~ variable)
(ii)没有“Petal.Width”的情节
library(dplyr)
df2 <- df %>% filter(!variable == "Petal.Width")
ggplot(df2, aes(y=value, x=Species)) + geom_point() + facet_wrap(~ variable)