询问是否存在实现Tufte高data-ink-ratio极简条形图的ggplot2主题

要实现Tufte推崇的高数据墨水比（data-ink-ratio）极简条形图，有两种实用方式：借助现成主题包，或者自定义调整主题与图层样式。

1. 使用ggthemes包的theme_tufte()主题 #

ggthemes中的theme_tufte()是专门贴合Tufte可视化理念设计的主题，默认会移除冗余的背景、网格线、边框等元素，直接降低非数据墨水占比。

示例代码：

# 加载依赖包
library(ggplot2)
library(ggthemes)

# 构造示例数据
sample_data <- data.frame(
  group = c("Group 1", "Group 2", "Group 3", "Group 4"),
  metric = c(12, 28, 19, 24)
)

# 绘制极简条形图
ggplot(sample_data, aes(x = group, y = metric)) +
  # 窄条形强化极简感，深色填充减少视觉干扰
  geom_bar(stat = "identity", fill = "#333333", width = 0.2) +
  # 应用Tufte主题
  theme_tufte(base_family = "sans") +
  # 进一步移除冗余元素
  theme(
    axis.title.y = element_blank(),
    axis.ticks.y = element_blank(),
    plot.margin = margin(10, 40, 10, 10)
  ) +
  # 直接在条形外侧标注数值，替代Y轴刻度
  geom_text(aes(label = metric), hjust = -0.2, color = "#333333")

2. 自定义极致极简样式（贴合参考图例） #

如果想要更接近参考图的极致简洁（比如用线段代替条形、完全移除Y轴元素），可以用geom_segment替代条形，并进一步精简主题：

ggplot(sample_data, aes(x = group, xend = group, y = 0, yend = metric)) +
  # 用粗线段代替条形，最大化数据墨水比
  geom_segment(size = 1.5, color = "#333333") +
  # 直接标注数值，完全省去Y轴刻度
  geom_text(aes(y = metric, label = metric), hjust = -0.2, color = "#333333") +
  theme_tufte() +
  theme(
    axis.title = element_blank(),
    axis.ticks = element_blank(),
    axis.text.y = element_blank(),
    plot.margin = margin(10, 40, 10, 10)
  )

以上两种方式都围绕Tufte的核心原则：移除所有非必要的视觉元素，让数据本身成为视觉焦点，最大化数据墨水占比。

内容的提问来源于stack exchange，提问作者Erich Neuwirth