R语言练习答案及新任务
上期画图问题答案代码如下：
# 任务1library(gapminder)library(dplyr)library(ggplot2)gapminder_1952 <- gapminder %>%filter(year == 1952)ggplot(data = gapminder_1952, mapping = aes(x = pop, y = lifeExp,color = continent)) +geom_point() +scale_x_log10()# 任务2ggplot(data = gapminder_1952, mapping = aes(x = pop, y = lifeExp,color = continent,size = gdpPercap)) +geom_point() +scale_x_log10()
今天的任务是，根据图形的某一个变量，对图形分面，即，看图形在不同面的表现。如，按国家对数据画散点图，以考查不同国家的散布趋势。具体如下：
任务1：对数据gapminder_1952创建散点图，以人口（pop）为x轴，预期寿命（lifeExp）为y轴，并对每个大陆（continent）分面。同时，对x轴刻度取对数。
任务2：对数据gapminder作散点图。(1)以人均GDP（gdpPercap）为x轴，预期寿命（lifeExp）为y轴，用大陆（continent）作为点的颜色，用人口（pop）表示点的大小。（2）对x轴刻度取对数。（3）以年份（year）变量分面。
参考答案见下期。