【R语言】重新绘制高清MaxEnt的单因素响应曲线图像

  使用MaxEnt模型输出的.dat环境变量文件，重新绘制单因素响应曲线。这里选择bio7变量进行绘制：

# 加载必要的包
library(ggplot2)

# 读取数据
setwd("E:\\new\\MaxEntAll")
data <- read.csv("SP_bio7_only.csv", header = TRUE)

# 绘制线图和置信区间
ggplot(data, aes(x = x, y = y)) +
  geom_line(colour = "red", size= 0.7) +
  labs(
    x = "bio7",
    y = "cloglog output"
  ) +
  scale_y_continuous(breaks = seq(0, 1, by = 0.2)) +
  scale_x_continuous(breaks = seq(0, 80, by = 10)) +
  theme_bw()+
  theme(
    text = element_text(size = 14, family = "serif"),
    axis.ticks.length = unit(0.2, "cm"),  # 设置刻度线的长度
    axis.ticks = element_line(size = 1),  # 设置刻度线的粗细
    plot.title = element_text(size = 14, colour = "black", hjust = 0.5),
    axis.title.y = element_text(size = 14, color = "black", vjust = 1.9, hjust = 0.5, angle = 90),
    legend.position = "top",  # 将图例放置在顶部
    legend.justification = "center",  # 图例居中对齐
    legend.title = element_text(color = "black", size = 14),
    legend.text = element_text(color = "black", size = 14),
    axis.text.x = element_text(size = 14, color = "black", vjust = 0.5, hjust = 0.5, angle = 0),
    axis.text.y = element_text(size = 14, color = "black", vjust = 0.5, hjust = 1, angle = 0),
    panel.border = element_rect(color = "black", size = 1, fill = NA),
    axis.line = element_line(colour = "black", size = 2),
    axis.line.x = element_line(colour = "black", size = 0),
    axis.line.y = element_line(colour = "black", size = 0)
  )

结果展示：