我尝试用这个脚本制作一个数字
dodge <- position_dodge(0.5)
original_results <- read.table(file="D:/input.dat", heade=T)
library(bear)
aa <- original_results
aa = aa[,-1]
aa.m = melt(aa, id="minC")
dfc <- summarySE(aa.m, measurevar="value", groupvars=c("minC", "variable"))
dev.new(width=6, height=5)
ggplot(dfc, aes(x=minC, y=value, ymax=1, colour=variable, group=variable)) +
geom_errorbar(aes(x=minC, ymin=value-sd, ymax=value+sd), width=0.02, position=dodge) + labs(title=titler) +
geom_line(position=dodge) +
geom_point(aes(shape=variable), size=3, position=dodge) +
theme_bw()
但是,结果不明确,因为道奇变量不起作用 你能给我一点处理这个问题的小提示吗?
数据= link
答案 0 :(得分:0)
我通过增加position_dodge值解决了这个问题。
谢谢Ben bolker!