Problem 1(a)
``` r
ggplot(ChickWeight, aes(y = weight)) +
geom_boxplot(fill = "steelblue", color = "darkblue") +
labs(title = "Boxplot of Chick Weights",
y = "Weight (grams)") +
theme_minimal()
Problem 1(b)
``` r
ggplot(ChickWeight, aes(x = Diet, y = weight, fill = Diet)) +
geom_boxplot() +
scale_fill_manual(values = c("tomato", "goldenrod", "darkseagreen", "mediumpurple")) +
labs(title = "Chick Weights by Diet Type",
x = "Diet Type",
y = "Weight (grams)") +
theme_minimal()
Problem 2
``` r
ggplot(quakes, aes(x = mag)) +
geom_histogram(binwidth = 0.1, fill = "darkorange", color = "black") +
labs(title = "Histogram of Earthquake Magnitudes",
x = "Magnitude",
y = "Count") +
theme_minimal()
Problem 3
``` r
highest_points <- c(
2413, 20310, 12637, 2753, 14505, 14440, 2379, 447, 345, 4784,
13803, 12668, 1235, 1257, 1671, 4041, 4145, 535, 5270, 3360,
3489, 1979, 2302, 807, 1772, 12807, 5427, 13147, 6288, 1803,
13167, 5343, 6684, 3508, 1549, 4975, 11249, 3213, 811, 3560,
7244, 6643, 8571, 13534, 4395, 5729, 14417, 4863, 1951, 13809
)
df <- data.frame(highest_points = highest_points)
ggplot(df, aes(y = highest_points)) +
geom_boxplot(fill = "lightgreen", color = "darkgreen") +
annotate("point", x = 1, y = 3489, color = "red", size = 3) +
labs(title = "Boxplot of Highest Points in US States",
y = "Elevation (feet)") +
theme_minimal()
Problem 4(a)
``` r
ggplot(iris, aes(x = Sepal.Width, y = Sepal.Length, color = Species, shape = Species)) +
geom_point(size = 3) +
scale_color_manual(values = c("firebrick", "darkcyan", "goldenrod")) +
labs(title = "Sepal Width vs Length by Species",
x = "Sepal Width",
y = "Sepal Length") +
theme_minimal()
Problem 4(b)
``` r
ggplot(iris, aes(x = Sepal.Width, fill = Species)) +
geom_histogram(binwidth = 0.1, color = "black") +
scale_fill_manual(values = c("firebrick", "darkcyan", "goldenrod")) +
labs(title = "Histogram of Sepal Width by Species",
x = "Sepal Width",
y = "Count") +
theme_minimal()
