如何使用ggplot2固定geom_text的位置

如何解决如何使用ggplot2固定geom_text的位置

我想制作一张这样的图表。

但是我得到这样的东西。

这是我的数据框。

 dput(mydata4)
structure(list(원격.수업.방식 = c("A","A","A/B","A/B/C","A/C","B","B/C","C","C"),name = c("학업.기여도.x","학업.기여도.y","학업.기여도.x","학업.기여도.y"),value = c(1.955,1.121,2.25,1.035,2.5,1.179,3,1.414,2.718,1.324,2.75,0.957,2.727,1.302)),row.names = c(NA,-14L),class = c("tbl_df","tbl","data.frame"))

这是我使用的代码。

library(ggplot2) 
library(tidyverse)

mydata4 <- mydata4 %>% pivot_longer(cols = c(학업.기여도.x,학업.기여도.y),names_to = 'name',values_to = 'value')

mydata4
# A tibble: 14 x 3

ggplot(data=mydata4) + geom_col(aes(x=원격.수업.방식,y = value,fill=name),position="dodge") + ggtitle("원격 수업 방식 별 학업기여도(평균/표준편차)") +theme(plot.title = element_text( face = "bold",hjust = 0.5,size = 20,color = "black")) + geom_text(aes(x=원격.수업.방식,y=value,label=value),position = position_dodge(.9))

我用这个的时候

   geom_text(aes(x=원격.수업.방식,position = position_dodge(.9),vjust=0.2,hjust=0.2)

[

enter image description here

解决方法

我无法重现该示例，而是通过查看您的代码和绘图。我想您只需要在垂直和水平方向上进行一点调整即可。只需在geom_text中添加两个参数（请参阅下文）

geom_text(aes(x=원격.수업.방식,y=value,label=value),position = position_dodge(.9),vjust=-0.25)

我不确定结果。如果它的返回方式不同，则可以通过更改vjust中的hjust和geom_text参数的值来进行实验。它基本上使文本沿垂直和水平轴移动。

（已编辑）请尝试以下

  attach(mydata4)
  ggplot(mydata4) + 
  aes(x=원격.수업.방식,y = value,fill=name) + 
  geom_bar(position = 'dodge',stat='identity') + 
  ggtitle("원격 수업 방식 별 학업기여도(평균/표준편차)") +
  theme(plot.title = element_text( face = "bold",hjust = 0.5,size = 20,color = "black")) + 
  geom_text(aes(label=value),position=position_dodge(0.9),vjust=-0.25)