ggplot2 boxplot 的翻转坐标答案

【问题标题】：Flip coords for ggplot2 boxplotggplot2 boxplot 的翻转坐标
【发布时间】：2016-01-22 19:15:56
【问题描述】：

我想翻转 ggplot2 箱线图的坐标，我还进行坐标变换。

library(ggplot2)

dat = data.frame(group = factor(c(rep(1,3),rep(2,6))),
                 vals   = c(c(0.1,2.25,1000), c(0.11,0.21,0.21,4.55,5.06,29.48)))


   ggplot(dat,aes(group,vals)) + geom_boxplot() 
   ggplot(dat,aes(group,vals)) + geom_boxplot()  + coord_trans(y="log10")

如果我现在只添加“+ coord_flip()”，轴的对数缩放将丢失..

 ggplot(dat,aes(group,vals)) + geom_boxplot()  + coord_trans(y="log10") + coord_flip()

有什么方法可以实现坐标翻转？

感谢任何cmets！

最好，斯蒂芬妮

【问题讨论】：

你读过this SO answer吗？
@Eric 失败。哎呀。我没有看到这个评论。你先建议。我应该删除我的答案吗？
感谢您的评论，我已经看到了这篇文章。但是，它并没有解决我的问题。请参阅我对以下答案的评论。无论如何谢谢！

标签： r ggplot2 transform boxplot

【解决方案1】：

也许有解决方法。您可以使用viewport() 翻转您的情节。编辑：使用包cowplot，可以切换y轴。

library(ggplot2)
library(grid)
library(cowplot)
p <- ggplot(dat,aes(group,vals)) + geom_boxplot()  + coord_trans(y="log10") + theme(axis.text.x = element_text(angle = 90, hjust = 1), axis.title.x = element_text(angle = 90, hjust = 1), axis.text.y = element_text(angle = 90, hjust = 1))

pp <- ggdraw(switch_axis_position(p, axis = 'y'))

grid.newpage()
print(pp, vp = viewport(angle = -90, width = 0.7, height = 0.8))

【讨论】：

嗨，谢谢，我已经考虑过这个选项。但是，我不喜欢 x 轴位于图表顶部，而不是像往常一样位于底部。 ..
这很酷，我不知道'switch_axis_position'。谢谢！

【解决方案2】：

只需使用scale_y_log10:

ggplot(dat,aes(group,vals)) + 
 geom_boxplot() + 
 coord_flip() + 
 scale_y_log10()

然后根据需要进行调整。

【讨论】：

在这种情况下，我进行了不同的转换。在计算箱线图的汇总统计数据之前转换数据。查看箱线图如何变化：ggplot(dat,aes(group,vals)) + geom_boxplot() + coord_trans(y="log10") 与 ggplot(dat,aes(group,vals)) + geom_boxplot() + scale_y_log10( ) 所以，我肯定只是想应用坐标变换，而不是比例变换。
我很确定它们是一样的。这只是被转换的数据或规模之间的差异。
你检查过箱线图吗？在这种情况下，如果您在进行 log10 转换之前或之后计算中位数，则会有所不同。
这会改变数据，而不仅仅是显示。将显示分位数，但不会显示晶须。所以这是错误的做法。