temp/plotsSchemaAlignment.R

In lcmercado/AutoAnalysis: Functions To Automate Common Data Analysis Tasks

#Effort to plot correlation matrix for the schemaAlignment function
# library(ggplot2)
# columnNamesDiff <- adist(x_names,y_names)
# rownames(columnNamesDiff) <- x_names
# colnames(columnNamesDiff) <- y_names
# cormat <- round(cor(columnNamesDiff),2)
# melted_cormat <- melt(cormat)
# ggplot(data = melted_cormat, aes(x=x_names, y=y_names, fill=value)) +
#      geom_tile()

#In the future more sophisticated matching methods could be included in the function.