if (requireNamespace("ggplot2")) {
library(ggplot2)
data(seawatervelocity)
g_num <-
ggplot() +
geom_fields(data = seawatervelocity,
aes(radius = as.numeric(v), angle = as.numeric(angle)))
g_discr <-
ggplot() +
geom_fields(data = seawatervelocity,
aes(radius = cut(as.numeric(v), 4), angle = as.numeric(angle)))
g_num + scale_radius_continuous()
g_num + scale_radius_binned()
g_discr + scale_radius_discrete()
}
Run the code above in your browser using DataLab