我想
Dataset<-read.csv(file= "meat.csv", header= TRUE, sep= ";" )
library(ggplot2)
options(scipen=999)
theme_set(theme_bw())
gg <- ggplot(Dataset, aes(x=specie, y=responserate))+
geom_point(aes(col=energetic_level, size=functional_level)) +
geom_smooth(method="loess", se=F) +
labs(subtitle="Bushmeat trade",
y="Response rate",
x="Body mass")
gg+scale_color_gradient(low="green", high="red", space ="Lab" )
plot(gg)specie responserate energetic_level functional_level
AAOtol_cras 7.2 2.4 low_TL
ABMiop_tal 1.6 3 low_TL
ACCLep_cap 14.4 3 low_TL
BAThry_swin 20 2.8 low_TL
BBPhil_mont 20.8 2.6 low_TL
BCChlor_cyn 72.8 3.2 low_TL
BDCerc_mit 5.6 2.5 low_TL
CCHys_afri 23.2 2.8 low_TL
FCan_mes 1.6 4.9 inter_TL
PTrag_oryx 16 2.7 …