如何自定义双轴Barchart？

Question

这是此 r：如何使用多个条和双轴构建Barplot？

我有1个CAT和3个数值变量的DF。现在，我想知道如何按“成本”的大小从右到左订购栏（由红线给出）。在我想手动指定每个条形的颜色之后，但找不到道路。另外，是否可以将这些数字（成本）放入框中？

df <- data.frame (model  = c("A", "B", "C","D","E","F"),
                  share = c(12,20,15,9,60,20),
                  sale = c(16,25,18,14,67,28),
                  cost = c(14,19,28,24,57,28))

df_long <- df %>% 
  pivot_longer(
    cols = -model
  )



ggplot(df_long, aes(x = model, y= value, label=value))+
  geom_col(data = filter(df_long, name != "cost"), aes(fill=name), position = position_dodge())+
  scale_fill_manual(values = c("blue", "grey"))+
  geom_line(data = filter(df_long, name == "cost"), aes(color = name, group = 1), size = 0.5)+
  scale_color_manual(values = "red")+
  geom_point(data = filter(df_long, name == "cost"), size = 2)+
  geom_text(data = filter(df_long, name == "cost"), hjust=0, vjust=-0.5)+
  scale_y_continuous(
    name = "Sale and Share",
    sec.axis = sec_axis(~., name ="Cost")
  )+
  theme_minimal()+
  theme(legend.title=element_blank())

Answer 1

模型 的顺序可以通过设置因子的级别来完成。更改geom_text to geom_label创建的框而不是纯粹显示文本。我不确定您的意思是“。我自己手动指定每个酒吧的颜色”。你是说填充吗？颜色现在由您的因子确定，可以通过scale_fill_manual更改，但是您已经这样做了。

#data
df <- data.frame (model  = c("A", "B", "C","D","E","F"),
                  share = c(12,20,15,9,60,20),
                  sale = c(16,25,18,14,67,28),
                  cost = c(14,19,28,24,57,28))

#set levels of model by cost
df$model <- factor(df$model, levels = arrange(df, desc(df$cost))$model)

#set to long format
df_long <- df %>% 
  pivot_longer(
    cols = -model
  )

#plot (changed geom_text to geom_label)
ggplot(df_long, aes(x = model, y= value, label=value))+
  geom_col(data = filter(df_long, name != "cost"), aes(fill=name), position = position_dodge())+
  scale_fill_manual(values = c("blue", "grey"))+
  geom_line(data = filter(df_long, name == "cost"), aes(color = name, group = 1), size = 0.5)+
  scale_color_manual(values = "red")+
  geom_point(data = filter(df_long, name == "cost"), size = 2)+
  geom_label(data = filter(df_long, name == "cost"), hjust=0, vjust=-0.5)+
  scale_y_continuous(
    name = "Sale and Share",
    sec.axis = sec_axis(~., name ="Cost")
  )+
  theme_minimal()+
  theme(legend.title=element_blank())

Answer 2

更新：用您喜欢的颜色定义向量，然后使用scale_fill_identity：

colors <- c("black","blue","black","green","black","orange",
            "black","pink","black", "yellow", "black","green")

library(tidyverse)

df_long <- df %>% 
  pivot_longer(
    cols = -model
  ) 


ggplot(df_long, aes(x = fct_reorder(model,desc(value)), y= value, label=value))+
  geom_col(data = filter(df_long, name != "cost"), aes(fill=colors), position = position_dodge())+
  scale_fill_identity()+
  geom_line(data = filter(df_long, name == "cost"), aes(color = name, group = 1), size = 1)+
  scale_color_manual(values = "red")+
  geom_point(data = filter(df_long, name == "cost"), size = 2)+
  geom_label(data = filter(df_long, name == "cost"), hjust=0, vjust=-1.5)+
  scale_y_continuous(
    name = "Sale and Share",
    sec.axis = sec_axis(~., name ="Cost")
  )+
  theme_minimal()+
  theme(legend.title=element_blank())

第一个答案：：
我们可以从forcats软件包中使用fct_reorder，它在tidyverse

library(tidyverse)

df_long <- df %>% 
  pivot_longer(
    cols = -model
  ) 


ggplot(df_long, aes(x = fct_reorder(model, desc(value)), y= value, label=value))+
  geom_col(data = filter(df_long, name != "cost"), aes(fill=name), position = position_dodge())+
  scale_fill_manual(values = c("blue", "grey"))+
  geom_line(data = filter(df_long, name == "cost"), aes(color = name, group = 1), size = 1)+
  scale_color_manual(values = "red")+
  geom_point(data = filter(df_long, name == "cost"), size = 2)+
  geom_label(data = filter(df_long, name == "cost"), hjust=0, vjust=-0.5)+
  scale_y_continuous(
    name = "Sale and Share",
    sec.axis = sec_axis(~., name ="Cost")
  )+
  theme_minimal()+
  theme(legend.title=element_blank())