R ggplot2：将 2 个点图组合在一起

mean_data<-data.frame(mean.x=c(1,2,3),mean.y=c(5,3,4),SE.y=c(-0.1,-0.15,-0.12),SE.x=c(-0.1,-0.15,-0.12))
x<-runif(15,min=0.1,max=5)
y<-runif(15,2,6)
grad<-1:15
point_data<-data.frame(x,y,grad)

ggplot(point_data,aes(x,y,colour=grad))+
  geom_point(size=4)+
  theme_classic()

ggplot(mean_data,aes(mean.x,mean.y))+
  geom_point(size=3)+
geom_errorbar(aes(ymin = mean.y-SE.y, ymax = mean.y+SE.y),
              position = position_dodge(0.3), width = 0.05)+
  geom_errorbar(aes(xmin = mean.x-SE.x, xmax = mean.x+SE.x),
                position = position_dodge(0.3), width = 0.05)+
  theme_classic()

mean_data<-data.frame(mean.x=c(1,2,3),mean.y=c(5,3,4),SE.y=c(-0.1,-0.15,-0.12),SE.x=c(-0.1,-0.15,-0.12))
x<-runif(15,min=0.1,max=5)
y<-runif(15,2,6)
grad<-1:15
point_data<-data.frame(x,y,grad)

library(ggplot2)
ggplot() +
  geom_point(point_data, mapping = aes(x,y,colour=grad), size = 4) +
  geom_point(mean_data, mapping = aes(mean.x,mean.y), size = 3) +
  geom_errorbar(mean_data, mapping = aes(x = mean.x, y = mean.y,
                                         ymin = mean.y-SE.y, ymax = mean.y+SE.y), position = position_dodge(0.3), width = 0.05) +
  geom_errorbar(mean_data, mapping = aes(x = mean.x, y = mean.y, 
                                         xmin = mean.x-SE.x, xmax = mean.x+SE.x), position = position_dodge(0.3), width = 0.05) +               
  theme_classic()

R相关问答推荐

如何按排序顺序打印一个框架中所有精确的唯一值？

R中的子集文件—读取文件名索引为4位数字序列，例如0001到4000，而不是1到4000)

在R中，如何在每个堆叠的条上放置误差条，特别是当使用facet_grid时？

如何直接从Fortran到R的数组大小？

在连续尺度上转置标签[瀑布图，R]

如何使用列表中多个列表中的第一条记录创建数据框

将小数分隔符放在R中的前两位数字之后

使用Facet_WRAP时更改框图中线的 colored颜色

计算满足R中条件的连续列

R：从geom_ol()中删除轮廓并导出为pdf

从服务器在Shiny中一起渲染图标和文本

在带有`R`中的`ggmosaic`的马赛克图中使用图案而不是 colored颜色

删除字符串R中的重复项

通过R：文件名未正确写入[已解决]将.nc文件转换和导出为.tif文件

主题(Legend.key=Element_RECT(Fill=&Quot；White&Quot；))不起作用

TidyVerse中长度不等的列结合向量

希望解析和复制R中特定模式的数据

如何编辑被动式数据表？

修复标签重叠和ggploy内的空间

如何将一列相关性转换为R中的相关性矩阵