假设我有以下平均值: 在我的研究中，我给否定和肯定的回答分配了0和1的值，所以下面是0到1的平均分.
| Item | Mean |
| a | 0.66 |
| b | 0.37 |
| c | 0.36 |
| d | 0.12 |
| e | 0.42 |
| f | 0.68 |
| g | 0.19 |
| h | 0.27 |
| i | 0.11 |
| j | 0.37 |
我如何在R中创建条形图，其中您将看到条形图以0.5为中心？对于Means>；0.5(例如，a和f项)，条形高于0.5，而对于Means<；0.5，条形低于0.5.
我试着用谷歌搜索R的代码，但没有成功地找到我想要的.有可能我用错了关键词.我不是R方面的专家，所以我觉得所有与R有关的事情都很有挑战性.考虑到我目前的R经验，我甚至不知道如何实现我想要的.
Update:(见 comments ):
library(ggplot)
df$Deviation = df$Mean - 0.5
ggplot(df, aes(x = Item, y = Deviation)) +
geom_col(aes(fill = Deviation > 0), position = position_dodge()) +
geom_hline(yintercept = 0, linetype = "dashed", color = "black") +
scale_fill_manual(values = c("TRUE" = "cadetblue3", "FALSE" = "coral3")) +
theme_minimal() +
scale_y_continuous(limits = c(-0.5, 0.5),
breaks = seq(-0.5, 0.5, by = 0.1),
labels = function(x) sprintf("%.1f", x + 0.5)) +
theme(legend.position = "bottom")
Update澄清后(删除第一个答案):只删除coor_flip():
library(ggplot2)
df$Deviation = df$Mean - 0.5
ggplot(df, aes(x = Item, y = Deviation)) +
geom_col(aes(fill = Deviation > 0), position = position_dodge()) +
geom_hline(yintercept = 0, linetype = "dashed", color = "black") +
scale_fill_manual(values = c("TRUE" = "cadetblue3", "FALSE" = "coral3")) +
theme_minimal()+
scale_y_continuous(labels = function(x) x + 0.5,
breaks = function(x) seq(floor(min(df$Mean)),
ceiling(max(df$Mean)), by = 0.1)) +
theme(legend.position = "bottom")
