p+labs(x = "Publication years", y = "Number of publications") + #scale_x_continuous(breaks = seq(min(data$ID), max(data$ID), by = 1)) + # Add this line #scale_y_continuous(expand = c(0,0),limits = c(0,100),breaks = seq(0, 100, by = 20)) + theme_classic() + theme( panel.background = element_rect(fill="white", colour="white", size=0.25), axis.line = element_line(colour="black", size=0.5), axis.title = element_text(size=13, color="black"), axis.text = element_text(size=12, color="black"), legend.position = c(0.35, 0.7), legend.text = element_text(size =10), aspect.ratio = 1, # set figure size to 8x6 inches plot.title = element_text(size = 10), # optional, add a title axis.text.x = element_text(angle = 45, hjust = 1) # Rotate x-axis labels by 45 degrees ) + guides(fill = guide_legend(reverse = TRUE)) 请修改图例位置
时间: 2023-12-03 15:05:44 浏览: 38
要将图例位置改为右上角,可以将 `legend.position` 的值改为 `c(0.9, 0.9)`,即:
```
p+labs(x = "Publication years", y = "Number of publications") +
scale_y_continuous(expand = c(0,0),limits = c(0,100),breaks = seq(0, 100, by = 20)) +
theme_classic() +
theme(
panel.background = element_rect(fill="white", colour="white", size=0.25),
axis.line = element_line(colour="black", size=0.5),
axis.title = element_text(size=13, color="black"),
axis.text = element_text(size=12, color="black"),
legend.position = c(0.9, 0.9),
legend.text = element_text(size =10),
aspect.ratio = 1,
plot.title = element_text(size = 10),
axis.text.x = element_text(angle = 45, hjust = 1)
) +
guides(fill = guide_legend(reverse = TRUE))
```