library(ggplot2)
library(dplyr)
ssd_speed %>%
count(form_factor)
ssd_speed %>%
filter(form_factor != "mSATA") %>%
ggplot(aes(x = read, y = write, color = form_factor)) +
geom_point() +
labs(
title = "Average read vs. write speed of SSDs",
x = "Read speed (MB/s)",
y = "Write speed (MB/s)"
) +
facet_wrap(~form_factor, ncol = 1, scales = "free") +
guides(color = FALSE)
Run the code above in your browser using DataLab