R语言绘图，以负值为原点起始

Question

R用ggplot绘制的图，数据为对数值全为负值，图为倒的，如何将图倒过来，起始原点为负值，然后向上延申，类似于下图
，多谢解答

Answer 1

引自免费微信小程序：皆我百晓生

在R语言中，如果你想创建一个倒置的折线图，可以遵循以下步骤：

1. 首先，我们需要加载并定义我们的数据集，例如，如果你的数据集中有名为data.csv的文件，那么我们可以使用以下代码加载它：

# 加载数据
data <- read.csv("data.csv")

1. 接下来，我们将从数据集中读取每个正态变量的值，这些值通常以零轴为分界线。在这个例子中，我们假设我们的数据集包含三个变量，分别代表"Entering Replicate Data"（复制数据）、"YTitle"（y标题）和"Type"（类型）。我们可以通过以下代码读取它们：

# 读取数据
entering_data <- data[["Entering replicate data"], ]
y_title <- data[["YTitle"]]
type <- data[["Type"]]

1. 然后，我们需要创建一个x轴标签，并将其设置为负数作为起始点。对于横轴上的标签，你可以在type列上添加一条字符串"Negative"，这样R就会默认将这个标签写在起始点处：

# 创建x轴标签
x_axis_label <- paste("Negative", type, sep = " ")

1. 然后，我们需要创建一个y轴标签，并将其设置为每个正态变量值的绝对值，以及一个用于表示Treatment（治疗组）的标签。为了实现这一点，我们首先需要计算每行正态变量值的绝对值，这可以通过以下代码完成：

# 计算每个正态变量值的绝对值
abs_values <- abs(entering_data$ entering_replicate_data)
treatment_label <- ifelse(type == "Treated", "Positive", "Negative")

1. 最后，我们将整个图形格式化为适当的水平方向，例如，为了使数据在图上整齐地排列，我们可以使用gridExtra::wrap_grid()函数：

# 格式化数据
ggsave("negative_example.svg", width = 1, height = 1,
       col = c("#7f7f7f", "#0099ff"), main = paste(x_axis_label, y_axis_label),
       xlab = x_axis_label, ylab = y_axis_label, fill = treatment_label, bg = "white",
       cex = 1.5, horiz = TRUE, theme_minimal())

1. 这样，你就成功地创建了一个倒置的折线图，其中x轴标签是"Negative"，y轴标签是每行正态变量值的绝对值以及"Treated"（治疗组）的标签，且数据在图上按顺序排列，从左到右，最后沿右侧向上的延伸。

注意：上述代码中的数据处理和视觉效果可能会根据实际的数据集有所不同，具体取决于你的数据结构和需求。此外，这段代码也适用于其他类型的R数据图表，如直方图、箱线图等。如果你需要使用特定的图形库，例如ggplot2或lattice，你可能需要进行相应的调整。在使用时，你可以参考这些库提供的文档和示例代码，以确保你的图表符合预期的设计。