R绘图：在箱形图中自定义x轴值

Question

我有一个包含3个变量和260行的数据框。 （以下示例）

HouseID<-c(1:10)
Town<-c("D","A","B","C","A","B","C","C","C","A")
Occupants<-c(5,3,2,4,5,2,3,8,1,3)
df<-data.frame(HouseID,Town,Occupants)

HouseID Town Occupants
1       D     5
2       A     3
3       B     2
4       C     4
5       A     5
6       B     2
7       C     3
8       C     8
9       C     1
10      A     3 

我想根据城镇频率的降序创建一个用于x轴顺序的乘员分布的箱形图

Town Freq
A    3
B    2
C    4
D    1

（显示示例图片）

我尝试对数据框进行排序，但是默认情况下，箱形图x轴是根据字母顺序显示的。 有办法吗？

Answer 1

您只需要使用factor根据其计数summary(df$Town)对df$Town级别进行重新排序：

df$Town <- factor(df$Town, levels(df$Town)[order(summary(df$Town),decreasing = TRUE)])
plot_ly(df, x=~Town, y=~Occupants, type="box")