[Notes about R] Common used code snippet for R programming #R #datascience

ggplot-example.R

p <- ggplot()
p <- ggplot(data = k_suggest_df,
            aes(x = k, y = median_kl, col = calc))
p <- p + geom_line()
p <- p + xlab("K")
p <- p + ylab("Median KL divergence (across all cells)")
p <- p + theme_bw(base_size = 8)
#p <- p + theme(legend.key.size = unit(3, "line"))
p <- p + theme(legend.position = "bottom")
p <- p + theme(legend.title = element_blank())
p <- p + theme(legend.margin=margin(0,0,0,0))
p <- p + theme(legend.box.margin=margin(-10,0,0,0))
print(p)

merge-df.R

library(dplyr)

df1 <- data.frame(x = 1:5, y = 2:6, z = 3:7)
rownames(df1) <- LETTERS[1:5]
df2 <- data.frame(x = 1:5, y = 2:6, z = 3:7)
rownames(df2) <- LETTERS[3:7]

# add rownames as a column in each data.frame and bind rows
bind_rows(df1 %>%  tibble::rownames_to_column(), 
          df2 %>%  tibble::rownames_to_column()) %>% 
    # evaluate following calls for each value in the rowname column
    group_by(rowname) %>% 
    # add all non-grouping variables
    summarise_all(sum)

Output image