library(datawoman)
df1 <- df2 <- df3 <- df4 <- iris[1:4] df1$Petal.Width <- as.character(df1$Sepal.Width) df2$Sepal.Width <- NULL df3 <- df4[1:5,] comcomcol(df1, df2, df3, df4)
df1 <- df2 <- df3 <- df4 <- iris[1:4] n <- 1:nrow(iris) df1 <- df1[sample(n, 10),] df2 <- df2[sample(n, 50),] df3 <- df3[sample(n, 100),] comcomcol(df1, df2, df3, df4, custom_fun = mean)
df1 <- df2 <- df3 <- df4 <- mtcars df3$mpg <- NULL df2$hp <- NULL comcomcol(df1, df2, df3, df4, custom_fun = function(x) round(median(x^3)))
comcomcol(iris)
comcomcol(iris, custom_fun = mean)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.