Chapter 24 Défi 4

Générez un graphique de comparaison de la concentration de CO2 versus l’absorption où chaque plante est représentée en utilisant un point différent.

Points bonus pour avoir réalisé ce défi en utilisant des boucles imbriquées !

Challenge 4: Answer

plot(x = CO2$conc, y = CO2$uptake, type = "n", cex.lab = 1.4,
    xlab = "CO2 concentration", ylab = "CO2 uptake")

# Type 'n' tells R to not actually plot the points.

plants <- unique(CO2$Plant)

for (i in 1:nrow(CO2)) {
    for (p in 1:length(plants)) {
        if (CO2$Plant[i] == plants[p]) {
            points(CO2$conc[i], CO2$uptake[i], col = p)
        }
    }
}

plot(x = CO2$conc, y = CO2$uptake, type = "n", cex.lab = 1.4,
    xlab = "CO2 Concentration", ylab = "CO2 Uptake")

plants <- unique(CO2$Plant)

for (i in 1:nrow(CO2)) {
    for (p in 1:length(plants)) {
        if (CO2$Plant[i] == plants[p]) {
            points(CO2$conc[i], CO2$uptake[i], col = p)
        }
    }
}