ggplot2：将stat_smooth回归直线延伸至绘图区域的整个x范围

我在ggplot中有两条单独的回归直线，每条回归直线对应一个单独的变量。但是，对应于local的第二行不会扩展到整个图表。有没有解决这个问题的方法，或者让这两个ablines在图形区域平均延伸的方法？ggplot2：将stat_smooth回归直线延伸至绘图区域的整个x范围

ggplot(metrics, aes(x=popDensity, y= TPB, color = factor(type))) + geom_point() +theme_minimal() + stat_smooth(method = "lm", se = FALSE) + 
    geom_label_repel(aes(label= rownames(metrics)), size=3, show.legend = FALSE) + 
    theme(axis.title = element_text(family = "Trebuchet MS", color="#666666", face="bold", size=12)) + 
    labs(x = expression(paste("Populatin Density ", km^{2})), y = expression(paste("Rating")))+ 
    theme(legend.position="top", legend.direction="horizontal") + theme(legend.title=element_blank())

下面是数据的一个样本：

> dput(metrics) 
structure(list(popDensity = c(4308, 27812, 4447, 5334, 4662, 
2890, 1689, 481, 4100), TPB = c(2.65, 4.49, 2.37, 2.87, 3.87, 
2.95, 1.18, 1.62, 1.87), type = c("Global", "Global", "Global", 
"Global", "Global", "Global", "Local", "Local", "Local")), .Names = c("popDensity", 
"TPB", "type"), row.names = c("City1", "City2", "City3", "City4", 
"City5", "City6", "City7", "City8", "City9"), class = "data.frame")

来源

2017-04-20 the_darkside

添加fullrange = T到stat_smooth会使配合跨度全方位的情节：

ggplot(metrics, aes(x = popDensity, y = TPB, color = factor(type))) + 
    geom_point() + 
    theme_minimal() + 
    stat_smooth(method = "lm", se = FALSE, fullrange = T) + 
    geom_label_repel(aes(label = rownames(metrics)), 
        size = 3, 
        show.legend = FALSE) + 
    theme(axis.title = element_text(
     family = "Trebuchet MS", 
     color = "#666666", 
     face = "bold", 
     size = 12 
    )) + 
    labs(x = expression(paste("Populatin Density ", km^{2})), 
     y = expression(paste("Rating"))) + 
    theme(legend.position = "top", legend.direction = "horizontal") + 
    theme(legend.title = element_blank())

来源

2017-04-20 17:34:10 mt1022

ggplot2：将stat_smooth回归直线延伸至绘图区域的整个x范围

回答

相关问题