Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- plotYofX <- function(dt,x,y) {
- dt[, lapply(.SD, function(x) {as.numeric(x)}), .SDcols = c(x,y)]
- ggplot(dt) + geom_step(aes(x=get(names(dt)[x]), y=get(names(dt)[y]))) + labs(x=names(dt)[x], y=names(dt)[y])
Add Comment
Please, Sign In to add comment