library(ggplot2)
iris |> tidyr::pivot_longer(
cols = !Species,
names_to = 'var',
values_to = 'value'
) |>
ggplot(
aes(x=var, y=Species, color=value, size=value)
) +
geom_point() -> p
p +
theme_blinds(
colour = c('grey90', 'white'),
axis = 'y',
axis.line.y=element_line()
)
p +
theme_blinds(
colour = c('grey90', 'white'),
axis = 'x',
axis.line.x = element_line()
)
Run the code above in your browser using DataLab