带线图的条形图 - 次轴

Question

在参考了多个链接之后，我得到了下面的代码，但是我仍然没有成功获得带有标签的行。我怀疑sec.axis 转换中的一些错误，但我无法弄清楚。

# dummy data
df_dummy = data.frame('Plan_code'=c('A','B','C','D','E','F','G'),
'Total'=c(191432,180241,99164,58443,56616,29579,19510),'STP'=c(41,40,44,37,37,37,45))

# creation of plot 
[![g <- ggplot(data = df_dummy, aes(x = Plan_code, y = Total)) +
  geom_col(aes(fill = 'Total')) +
  geom_line(data = df_dummy, aes(x = Plan_code, y = STP,group=1)) +
  geom_point(data = df_dummy, aes(x = Plan_code,y=STP)) +
  geom_label(data = df_dummy, aes(x = Plan_code, y = STP, fill = Plan_code, label = paste0('%', STP)), color = 'white', vjust = 1.6, size = 3) +
  scale_y_continuous(sec.axis = sec_axis(~. / 2000, name = 'PERCENT')) +
labs(fill = NULL, color = NULL) +
  theme_minimal()
print(g)][1]][1]

Answer 1

喜欢吗？

g <- ggplot(data = df_dummy, aes(x = Plan_code, y = Total)) +
     geom_col(aes(fill = 'Total'))  +
     geom_point(data = df_dummy, aes(x = Plan_code,y=STP * 2000)) +
     geom_label(data = df_dummy, aes(x = Plan_code, y = STP *2000, fill = Plan_code, label = paste0('%', STP)), color = 'white', vjust = 1.6, size = 3) +
     scale_y_continuous(sec.axis = sec_axis(~. / 2000, name = 'PERCENT'))+
     geom_line(data = df_dummy, aes(x = Plan_code, y = STP * 2000,group=1), col = 'blue') +
     theme(axis.text.y.right = element_text(color =  'blue'),axis.title.y.right = element_text(color =  'blue'))
     labs(fill = NULL, color = NULL) +
     theme_minimal()

我只是将您的数据乘以 2000，因此绝对 y 坐标是正确的。 我改变了颜色。