更改 ggplot 图例

Question

我对使用 ggplot 包比较陌生。我想使用名称“Sp1”和“Sp2”重命名绘图的图例。我尝试使用以下代码来实现它，但我无法做到。

这是代码：

t<-read.table ("covartimesfinal2.txt", header=T)

attach(t)

p <- ggplot(t,aes(x=Ratio,y=Time)) + geom_point(aes(shape=factor(Sp)))

p + geom_smooth(aes(linetype=factor(Sp), ),colour="black", method='lm', 

se=F)+theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),panel.background = element_blank(), axis.line = 

element_line(colour = "black"))+

scale_shape_discrete(name  ="Species",labels=c("Sp1", "Sp2"))

我的目标是摆脱名为“因子（Sp）”的图例，并使轴的数字变为黑色而不是灰色。

提前致谢！请找到附上的示例图

Answer 1

以下删除不需要的图例标签，我创建了一个自己的数据示例：

数据示例

t<-data.frame(Ratio=c(1:10,1:10), Time=c(1:10,11:20), Sp=as.factor(c(rep("H", 10), rep("N", 10))))

Ggplot

library(ggplot2)

p <- ggplot(t,aes(x=Ratio,y=Time, group=Sp, shape=Sp)) + geom_point() + geom_line()

p <- p + scale_shape_discrete(name="Species",labels=c("Sp1", "Sp2"))

p <- p + theme(axis.line=element_line(colour = "black"), axis.text=element_text(colour="black"))