ggplot boxplot：position_dodge不起作用

Question

我用ggplot制作了一个相对简单的箱线图

ggplot(l8tc.df_17_18,aes(x=landcover,y= tcw_17, group=landcover))+
geom_boxplot()+
geom_boxplot(aes(y= tcw_18),position_dodge(1))

一个屏幕快照，可以了解所使用的数据：

这是输出：

我希望不同的箱形图彼此相邻而不是垂直排列。我已经浏览了所有相关问题，并尝试了几种选择，但是到目前为止，我还没有找到解决方案。

我仍然是ggplot初学者。

有什么想法吗？

Answer 1

在这种情况下，您应该使用不同的数据格式并将其融化。

require(reshape2) 
require(tidyverse) 

# format data
melted_data <- l8tc.df_17_18 %>%
    select(landcover, tcw_17, tcw_18) %>%  
    melt('landcover', variable.name = 'tcw')

# plot
ggplot(melted_data, aes(x = as.factor(landcover), y = value)) + geom_boxplot(aes(fill = tcw))

躲闪应该是自动的，但是如果您想进行实验，请使用geom_boxplot(aes(fill = tcw), position = position_dodge())
https://ggplot2.tidyverse.org/reference/position_dodge.html

您可以在一行中编写它，而无需创建临时文件

l8tc.df_17_18 %>% 
    select(landcover, tcw_17, tcw_18) %>% 
    melt('landcover', variable.name = 'tcw') %>% 
    ggplot(aes(x = as.factor(landcover), y = value)) + geom_boxplot(aes(fill = tcw))