将条形图与ggplot2和R并排排列
我正在努力用相同的比例并排显示两个条形图 我的代码如下所示将条形图与ggplot2和R并排排列,r,ggplot2,R,Ggplot2,我正在努力用相同的比例并排显示两个条形图 我的代码如下所示 library(ggplot2) library(gridExtra) #dataframe definition rm(list=ls(all=TRUE)) mydata <- data.frame(a=1:10,b=c('yes','no'),c=seq(2,20,2)) plot1<- ggplot(mydata, aes(x=factor(mydata$b), y=100*a), order=f, fill=gre
library(ggplot2)
library(gridExtra)
#dataframe definition
rm(list=ls(all=TRUE))
mydata <- data.frame(a=1:10,b=c('yes','no'),c=seq(2,20,2))
plot1<- ggplot(mydata, aes(x=factor(mydata$b), y=100*a), order=f, fill=grey) +
stat_summary(fun.y="mean", geo m="bar", colour="black")+xlab("Factor b") +
ylab("Value of a")
plot2<- ggplot(mydata, aes(x=factor(mydata$b), y=c), order=f) +
stat_summary(fun.y="mean", geom="bar", colour="black")+xlab("Factor b") +
ylab("Value of b")
grid.arrange(plot1, plot2, ncol=2)
库(ggplot2)
图书馆(gridExtra)
#数据帧定义
rm(列表=ls(全部=TRUE))
mydata像这样的东西怎么样
library(ggplot2)
library(reshape2)
mydata <- data.frame(a=1:10,b=c('yes','no'),c=seq(2,20,2))
df <- melt(mydata, id.vars="b")
df[which(df$variable=="a"),]$value <- df[which(df$variable=="a"),]$value * 100
ggplot(df, aes(factor(b), value)) +
stat_summary(fun.y="mean", geom="bar", colour="black") + facet_grid(.~variable)
# If you need free scales, then:
ggplot(df, aes(factor(b), value)) +
stat_summary(fun.y="mean", geom="bar", colour="black") +
facet_wrap( ~variable, scales = "free_y")
库(ggplot2)
图书馆(E2)
mydata使用面而不是gridExtraMinor点:OP首先将a组中的y值乘以100,因此在创建绘图之前还有一行。我正在另一个数据帧上尝试它,结果显示:错误:ggplot2不知道如何处理类函数的数据这里是head>head(mydata)neg1产品NEGDIFF1 0.002052033搜索0.001988404 2 0.001882204搜索0.001602449 3 0.00244169搜索0.002168546 4 0.002793366搜索0.001892196 5 0.001386803搜索0.001182116