ggplot(heatmap_data, aes(x = var1, y = var2)) +
geom_tile(aes(fill = freq), color = "white") +
scale_fill_gradient2(low = "darkgreen", mid = "green", high = "darkred", midpoint = 0, limits = c(-1, 1), space = "Lab", name = "correlation") +
labs(title = "correlation Heatmap") +
theme_minimal() +
theme(axis.text.x = element_text(angle = 45, vjust = 1, size = 12, hjust = 1), axis.text.y = element_text(size = 12))
Z2dwbG90KGhlYXRtYXBfZGF0YSwgYWVzKHggPSB2YXIxLCB5ID0gdmFyMikpICsKICBnZW9tX3RpbGUoYWVzKGZpbGwgPSBmcmVxKSwgY29sb3IgPSAid2hpdGUiKSArCiAgc2NhbGVfZmlsbF9ncmFkaWVudDIobG93ID0gImRhcmtncmVlbiIsIG1pZCA9ICJncmVlbiIsIGhpZ2ggPSAiZGFya3JlZCIsIG1pZHBvaW50ID0gMCwgbGltaXRzID0gYygtMSwgMSksIHNwYWNlID0gIkxhYiIsIG5hbWUgPSAiY29ycmVsYXRpb24iKSArCiAgbGFicyh0aXRsZSA9ICJjb3JyZWxhdGlvbiBIZWF0bWFwIikgKwogIHRoZW1lX21pbmltYWwoKSArCiAgdGhlbWUoYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoYW5nbGUgPSA0NSwgdmp1c3QgPSAxLCBzaXplID0gMTIsIGhqdXN0ID0gMSksIGF4aXMudGV4dC55ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxMikpCg==
ggplot(heatmap_data, aes(x = var1, y = var2)) +
geom_tile(aes(fill = freq), color = "white") +
scale_fill_gradient2(low = "darkgreen", mid = "green", high = "darkred", midpoint = 0, limits = c(-1, 1), space = "Lab", name = "correlation") +
labs(title = "correlation Heatmap") +
theme_minimal() +
theme(axis.text.x = element_text(angle = 45, vjust = 1, size = 12, hjust = 1), axis.text.y = element_text(size = 12))