У меня есть набор данных, содержащий измерения в двух точках времени. Я сделал гистограмму данных первой временной точки и хотел бы добавить точки для второй временной точки (это просто ссылка). Как вы можете видеть ниже, точки есть, но они не в правильном положении по оси x (то есть все они имеют одно и то же значение x, в отличие от столбцов).
Как это решить?
library(ggplot2)
MyData = data.frame(
method=rep(c("A","B","C","D","E"),times=3),
time1=rnorm(30,10,3),
time2=rnorm(30,8,2),
lab=rep(rep(c(1,2,3),each=5),times=2),
cat=rep(c(1,2),each=15)
)
p <- ggplot(data = MyData,
aes(x=lab)) +
geom_bar(aes(y=time1,fill=method),
stat="identity",
position="dodge",
alpha=.7
) +
geom_point(aes(y=time2,group=method),
stat="identity",
position="dodge",
alpha=.8,
size=3) +
scale_fill_brewer(palette=3) +
facet_grid(. ~ cat)
p