在 R 中绘制带有反转 x 轴的折线图

Question

我正在尝试使用 matplot 在 R 中绘制带有受人尊敬的 x 轴的光谱：

matplot(x = colnames(aaaLowCarbonAbsorbanceSpec),
  y = t(aaaLowCarbonAbsorbanceSpec),
  main = "Low Carbon Absorbance", type = 'l',
  xlab = "Wavenumber / cm-1", ylab = "Absorbance",
  col = rgb(red = 1, green = 0.5, blue = 0.5, alpha = 1))

绘制曲线：

我在以下位置使用了rev()函数：

matplot(x = rev(colnames(aaaLowCarbonAbsorbanceSpec)),
  y = t(aaaLowCarbonAbsorbanceSpec),
  main = "Low Carbon Absorbance Rev", type = 'l',
  xlab = "Wavenumber / cm-1", ylab = "Absorbance",
  col = rgb(red = 1, green = 0.5, blue = 0.5, alpha = 1))

并绘制：

但是 x 轴保持不变 - 我如何按降序获得它？

谢谢

这是我的数据框的图像：

Answer 1

matplot

更改xlim=为您的情节。

set.seed(42)
dat <- setNames(as.data.frame(as.list(runif(10))), seq(4000, 3955, by=-5))
rownames(dat) <- "SOG130123"
dat
#               4000      3995      3990      3985      3980      3975      3970      3965      3960      3955
# SOG130123 0.914806 0.9370754 0.2861395 0.8304476 0.6417455 0.5190959 0.7365883 0.1346666 0.6569923 0.7050648

matplot(as.numeric(colnames(dat)), t(dat), type = "l")

matplot(as.numeric(colnames(dat)), t(dat), type = "l", xlim = c(4000, 3955))

ggplot2

更多数据：

set.seed(42)
dat <- setNames(data.frame(matrix(runif(30), ncol=10)), seq(4000, 3955, by=-5))
rownames(dat) <- c("SOG130123", "SOG130124", "SOG130125")
dat
#                4000      3995      3990      3985      3980      3975      3970      3965       3960      3955
# SOG130123 0.9148060 0.8304476 0.7365883 0.7050648 0.9346722 0.9400145 0.4749971 0.1387102 0.08243756 0.9057381
# SOG130124 0.9370754 0.6417455 0.1346666 0.4577418 0.2554288 0.9782264 0.5603327 0.9888917 0.51421178 0.4469696
# SOG130125 0.2861395 0.5190959 0.6569923 0.7191123 0.4622928 0.1174874 0.9040314 0.9466682 0.39020347 0.8360043

重塑和绘图：

library(dplyr)
# library(tibble) # rownames_to_column
library(tidyr) # pivot_longer
library(ggplot2)
dat %>%
  tibble::rownames_to_column() %>%
  pivot_longer(-rowname, names_to = "x", values_to = "y") %>%
  mutate(x = as.numeric(x)) %>%
  ggplot(aes(x, y)) +
  geom_line(aes(group = rowname, color = rowname)) +
  scale_x_reverse()

dplyr不需要这样做， tibble也不需要，但它们使开始工作变得相当简单。 为了重塑数据以支持这一点， ggplot2真的想要“长”数据，并且支持的两个最佳工具是tidyr::pivot_longer和reshape2::melt （和data.table::melt ，除了使用 data.table::melt 几乎相同data.table而不是数据的data.frame ）。