如何在与散点图中的点不同的颜色酿造机托盘中使用回归线？

Question

使用GapMinder数据，通过不同的大陆回归线绘制了下面的图：

代码如下：

<input type="date" name = "date" id = "date" onchange="ggrr(this)" >


<script>
function ggrr(input){

        var dateString = input.value;
var myDate = new Date(dateString);
var d = new Date(Date.parse(myDate));
var y = d.getFullYear();
var da = d.getDate() + 7;
var m = d.getMonth();
console.log(y+':'+m+':'+da);
}
</script>

问题是这些线并不是真正可见的。因此，我想使用Color Brewer提供的2种不同的调色板。 Pastel2 表示要点，但我想在行中使用“ Dark2”。这样会使线条突出。

我该怎么办？

Answer 1

您可以对点使用填充点形状，从而可以对点使用填充比例，对线条使用颜色：

ggplot(gapminder_82, 
       aes(gdpPercap, lifeExp)) + 
    # Make the edge color for the points totally transparent
    geom_point(aes(fill = continent), shape = 21, size = 3, colour = "#FFFFFF00") + 
    scale_x_log10() +
    geom_smooth(aes(color = continent), method = "lm", se = F) +
    scale_fill_brewer(palette = "Pastel2") +
    scale_color_brewer(palette = "Dark2") + 
    theme_bw()

结果：

Answer 2

即使可以使用单独的调色板，我也认为这会引起混淆，因为您会将相同的变量映射到两种不同的颜色。

如何调整点的Alpha值以增加线条的可见性？

gapminder_82 %>% 
  ggplot(aes(gdpPercap, lifeExp)) + 
    geom_point(aes(color = continent), alpha = 0.1) + 
    geom_smooth(method = "lm", 
                se = FALSE, 
                aes(color = continent)) +
    scale_x_log10() +
    scale_color_brewer(palette = "Set2") +
    theme_bw()