如何在R中使用ggplot2在軸刻度標記上添加軸標籤，類似於fivethirtyeight樣式？

Question

在fivethyeye.com的圖表中，它們主要在軸的頂部刻度線上包含y軸標籤。一個例子在本卡斯爾曼的圖形被認爲是從他2016年2月12日的文章「沙特是贏得它的戰爭對美國石油工業」：The number for the top of the y-axis scale includes the unit, like $150/barrel or 1,500 rigs.

我已經修改從ggthemes包一個主題GGPLOT2：

library(ggplot2) 
library(ggthemes) 
theme_fivethirtyeight_mod <- function (base_size = 12, base_family = "sans") { 
(theme_foundation(base_size = base_size, base_family = base_family) + 
theme(line = element_line(colour = "black"), rect = element_rect(fill = ggthemes_data$fivethirtyeight["ltgray"], linetype = 0, colour = NA), text = element_text(colour = ggthemes_data$fivethirtyeight["dkgray"]), 
     axis.text = element_text(color = 'black'), axis.ticks = element_blank(), axis.line = element_blank(), 
     legend.title = element_blank(), legend.background = element_rect(fill="gray90", size=.5, linetype="dotted"), 
     legend.position = "bottom", legend.direction = "horizontal", legend.box = "vertical", 
     panel.grid = element_line(colour = NULL), panel.grid.major = element_line(colour = ggthemes_data$fivethirtyeight["medgray"]), 
     panel.grid.minor = element_blank(), plot.title = element_text(hjust = 0, size = rel(1.5), face = "bold"), 
     plot.margin = unit(c(1, 1, 1, 1), "lines"), strip.background = element_rect())) 
} 

我想「後IP」添加到這個曲線圖的y軸和頂部的「IP之前」與x軸的最右邊的刻度（其使用該主題）： A scatterplot showing Innings Pitched before an injury versus after an injury for 81 baseball pitchers.

在此先感謝您的幫助！

Answer 1

您可以手動標記刻度：

lab <- c(seq(40, 220, by = 20)) 
p + scale_y_continuous(breaks = seq(40, 240, by = 20), labels = c(lab, "240 IP before injury")) 

這是一個整潔的情節，你打算將其發佈給公衆？我希望看到更多你的分析。

編輯：

使用修改的主題：

library(ggplot2) 
library(ggthemes) 

theme_fivethirtyeight_mod <- function (base_size = 12, base_family = "sans") { 
(theme_foundation(base_size = base_size, base_family = base_family) + 
theme(line = element_line(colour = "black"), rect = element_rect(fill = ggthemes_data$fivethirtyeight["ltgray"], linetype = 0, colour = NA), text = element_text(colour = ggthemes_data$fivethirtyeight["dkgray"]), 
     axis.text = element_text(color = 'black'), axis.ticks = element_blank(), axis.line = element_blank(), 
     legend.title = element_blank(), legend.background = element_rect(fill="gray90", size=.5, linetype="dotted"), 
     legend.position = "bottom", legend.direction = "horizontal", legend.box = "vertical", 
     panel.grid = element_line(colour = NULL), panel.grid.major = element_line(colour = ggthemes_data$fivethirtyeight["medgray"]), 
     panel.grid.minor = element_blank(), plot.title = element_text(hjust = 0, size = rel(1.5), face = "bold"), 
     plot.margin = unit(c(1, 1, 1, 1), "lines"), strip.background = element_rect())) 
} 

p1 <- ggplot(ChickWeight, aes(Time, weight)) + 
geom_point(position = "jitter") + 
scale_y_continuous(
    expand = c(0, 0), 
    limits = c(0, 560), 
    breaks = seq(0, 560, by = 185), 
    labels = c(seq(0, 375, by = 185), "560 units")) + 
theme_fivethirtyeight_mod()