按收入中位数R排序的条形图

当前有一个包含以下内容的表：

promo   ad    med_revenue
 No   Medium    31.92       
 No   Small     33.12       
 Yes  Medium    38.25       
 Yes  Small     32.50

---

问：我怎样才能把这些条分开，这样我就可以有四个不同的X变量，在那里它按中间价顺序显示它们？例如：没有促销小广告，是促销中广告。您可以通过使用

stru c

创建

promo

和

ad

之间交互的新变量来实现这一点：

df <- 
  tibble::tribble(
    ~promo,      ~ad, ~med_revenue,
      "No", "Medium",        31.92,
      "No",  "Small",        33.12,
     "Yes", "Medium",        38.25,
     "Yes",  "Small",         32.5
  )

df %>% 
  mutate(promo_ad = str_c(promo, ad, sep = " - ")) %>% 
  ggplot(aes(x = reorder(promo_ad, -med_revenue), y = med_revenue, fill = ad)) +
  geom_col() +
  coord_flip()

df%
突变（promo_ad=str_c（promo，ad，sep=“-”））%>%
ggplot（aes（x=重新订购（促销广告，-中间收入），y=中间收入，填充=广告））+
geom_col（）+
coord_flip（）

df <- 
  tibble::tribble(
    ~promo,      ~ad, ~med_revenue,
      "No", "Medium",        31.92,
      "No",  "Small",        33.12,
     "Yes", "Medium",        38.25,
     "Yes",  "Small",         32.5
  )

df %>% 
  mutate(promo_ad = str_c(promo, ad, sep = " - ")) %>% 
  ggplot(aes(x = reorder(promo_ad, -med_revenue), y = med_revenue, fill = ad)) +
  geom_col() +
  coord_flip()