data(sfd_lib)
if (rlang::is_installed("ggplot2")) {
library(ggplot2)
two_params <- sfd_lib[[1]]
two_params <- two_params[two_params$num_points == 25,]
ggplot(two_params, aes(X1, X2, col = type)) +
geom_point() +
facet_wrap(~ type, nrow = 1) +
coord_equal()
}
Run the code above in your browser using DataLab