r - R中倾斜箱线图的x标签

Question

我试图寻找一种方法来倾斜我的箱线图，但从未找到正确的名称位置。

我有每个模型不同精度的数据框Accuracy，我想在箱线图中显示变异性。

  sample iteration poly_eps.001_C1 poly_eps.01_C1 poly_eps.1_C1 poly_eps.001_C10 poly_eps.01_C10
(int)     (int)           (dbl)          (dbl)         (dbl)            (dbl)           (dbl)
    1         1       0.9841270      0.9841270     0.9761905        0.9761905       0.9761905
    1         2       0.9680000      0.9680000     0.9520000        0.9600000       0.9600000
    1         3       0.9523810      0.9523810     0.9603175        0.9365079       0.9365079
    1         4       0.9600000      0.9600000     0.9600000        0.9520000       0.9520000
    1         5       0.9523810      0.9523810     0.9682540        0.9444444       0.9444444

然后我的代码

     # algorithms helpsvme only getting the desired features for the boxplot
  algorithms = names(accuracies_table[-c(1:2)])  

  boxplot(accuracies_table[algorithms], col = color ,
      main = "Polynomial KSVM Models", ylab = "Accuracy",
      las=2,ylim = c(0.90,1))

有人可以帮我倾斜 x 轴标签吗？或者如何在 ggplot2 中完成此操作？

Answer 1

试试这个:

library(ggplot2)
library(reshape2)
df <- melt(accuracies_table[algorithms])
ggplot(df, aes(variable, value, fill=variable)) + geom_boxplot() +
        ggtitle("Polynomial KSVM Models") + ylab("Accuracy") +
  theme(axis.text.x = element_text(angle = 45, size=15, hjust = 1))