在 ggplot2 中绘制测井间隔数据

Question

我希望能够使用 ggplot2 生成一个简单的测井图。 测试数据很简单：

From    To  Lith
0   25  A
25  50  B
50  75  C
75  100 B
100 125 C
125 150 A
150 175 B
175 200 C

plot 应该是带状的，根据lith列着色并正确显示深度，并且应该看起来像这样（使用“SLF”而不是“Lith”）：

如您所见，某些单位在列中重复出现，我需要将它们放在正确的位置。 我希望有一种简单的方法可以强制geom_bar或geom_col简单地按原样绘制数据，而不以任何方式对其进行总结，但似乎我错了。

我应该如何 go 这样做？ 我应该使用哪个 *geom"？

TIA

Answer 1

使用geom_rect而不是geom_bar这样做相当简单

library(ggplot2)

ggplot(df, aes(x = 1, y = From, fill = Lith)) +
  geom_rect(aes(xmin = 0.5, xmax = 1.5, ymax = From, ymin = To)) +
  scale_y_reverse(name = 'Depth') +
  scale_x_continuous(limits = c(0, 2), name = NULL) +
  theme_minimal(base_size = 16) +
  theme(axis.text.x = element_blank()) +
  scale_fill_brewer(palette = 'OrRd')

---

以可重复格式从问题中获取的数据

df <- structure(list(From = c(0L, 25L, 50L, 75L, 100L, 125L, 150L, 
175L), To = c(25L, 50L, 75L, 100L, 125L, 150L, 175L, 200L), Lith = c("A", 
"B", "C", "B", "C", "A", "B", "C")), class = "data.frame", 
row.names = c(NA, -8L))

Answer 2

使用geom_rect 。 你有最小和最大高度，所以这很容易。

x <- 'From    To  Lith
0   25  A
25  50  B
50  75  C
75  100 B
100 125 C
125 150 A
150 175 B
175 200 C'
df1 <- read.table(textConnection(x), header = TRUE)

library(ggplot2)

ggplot(df1, aes(fill = Lith)) +
  geom_rect(aes(xmin = 0, xmax = 1, ymin = From, ymax = To)) +
  scale_x_continuous(breaks = NULL) +
  theme(aspect.ratio = 8)

^{使用reprex v2.0.2创建于 2022-09-27}