mirror of
https://github.com/rstudio/shiny.git
synced 2026-01-14 09:28:02 -05:00
8 lines
243 B
R
8 lines
243 B
R
alpha_val <- 0.2
|
|
|
|
scatterPlot <- function(data, cols) {
|
|
ggplot(data, aes_string(x = cols[1], y = cols[2])) +
|
|
geom_point(aes(color = selected_), alpha = alpha_val) +
|
|
scale_color_manual(values = c("black", "#66D65C"), guide = FALSE)
|
|
}
|