【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))

结果展示：