0

我正在尝试使用下面的代码绘制一个包含三列的数据集，但我得到一个只有轴上名称的空白图，谁能告诉我我做错了什么？

#rm(list=ls())
library(data.table)
library(wesanderson)
library(ggplot2)

exa <- fread("sample.csv", sep = "," ,header = T,  stringsAsFactors = FALSE)

pal <- wes_palette("Zissou1", 100, type = "continuous")
sp1<-ggplot(exa, aes(x=x, y=y, fill=z))+
geom_tile(show.legend = T)+
scale_fill_gradientn(colours = pal) + 
  scale_x_discrete(expand = c(0, 0)) +
  scale_y_discrete(expand = c(0, 0)) 
sp1

数据：

exa <- structure(list(x = c(0.457744, 0.492325, 0.49948, 0.471712, 0.504126, 
0.505528, 0.516318, 0.521419, 0.518354, 0.523001, 0.527301, 0.566585, 
0.411753, 0.427226, 0.446747, 0.43778, 0.432248, 0.444912, 0.462414, 
0.456952, 0.443462, 0.420683, 0.392057), y = c(25.69908, 25.65119, 
25.8332, 23.88982, 22.41502, 22.27553, 23.05898, 24.20714, 25.23666, 
25.35443, 25.78347, 27.20575, 20.94434, 21.62892, 22.61483, 22.49146, 
23.38523, 24.46414, 25.8023, 26.63754, 27.40164, 27.45981, 27.97814
), z = c(29.75408, 29.02752, 28.43744, 27.98952, 27.62504, 27.32658, 
27.04928, 26.77825, 26.53036, 26.28481, 26.04137, 25.80254, 28.5918, 
27.81994, 27.44201, 27.15059, 26.83333, 26.54576, 26.31531, 26.12999, 
25.88431, 25.65788, 25.47488)), class = "data.frame", row.names = c(NA, 
-23L))
4

1 回答 1

1

好吧，就像其他人说的那样，这可能不是在图块中表示数据的首选方式，而是使用geom_point. 在这种情况下，这是可行的：

ggplot(exa, aes(x,y,color=z)) +
  geom_point(size=3) +
  scale_color_gradientn(colors = pal)

在此处输入图像描述

如果您仍然想使用瓷砖，正如其他人提到的那样，您看不到瓷砖，因为它们太小了。您可以通过指定width=和使它们更大以便查看height=。由于 x 轴和 y 轴的比例不同，如果您想要方形瓷砖，则不能指定相同的数字。为此，您可以使用一点数学来为您做到这一点。这是可行的：

w= 0.02 * (max(exa$x)-min(exa$x))
h= 0.02 * (max(exa$y)-min(exa$y))

ggplot(exa, aes(x,y,fill=z)) +
  geom_tile(width=w, height=h) +
  scale_fill_gradientn(colors = pal)

在此处输入图像描述

顺便说一句 - 由于情节的纵横比，那里的瓷砖仍然不是方形的。

于 2020-06-11T20:51:57.077 回答