结合使用 ggplot2、magick 和 patchwork,我已经非常接近获得程序化沉积物岩心井下测井图,其中缩放照片沿左侧 y 轴对齐。请参阅下面的当前结果以及数据和代码。我剩下的问题是删除图像和数据图之间的深度 y 轴。 Patchwork 似乎可以使用以下方法来做到这一点:
plot_layout(axes = "collect_y")
,但是,我无法让它正常工作。
我应该注意到,我在这里所做的尝试混合缩放图像和绘图对于这些包来说似乎有点不寻常。我哪里错了?也许有更好的方法在 R 中创建这样的情节吗?
样本数据位于此处:样本数据
# Load Required Packages
library(ggplot2)
library(patchwork)
library(magick)
# Read in plot data
data <- read.csv(file = "Data/data.csv")
# Plotting ----
## L* and b* in log format
logplot <- ggplot(data) +
geom_path(aes(x=value, y=depth)) +
ylim(1.2,0) +
scale_y_reverse() +
labs(title='Core 10004_6A_1_2') +
facet_grid(cols = vars(metric), scales = 'free_x')
## Read in RGB plot image
plotimg <- "Data/10004_6A_1_2.png"
image<-image_read(plotimg)
raster<-as.raster(image)
## Plot Core Image
image <- ggplot(data,aes(x,depth)) +
scale_y_reverse() +
ylim(1.2,0) +
xlim(0,0.044) +
coord_flip() +
coord_fixed(expand = TRUE) +
annotation_raster(raster, 0, 0.044, -1.182, 0)
image
## Patchwork Plots
(image | logplot) + plot_layout(axes = "collect_y") & ylim(1.2, 0)