在变量中绘制连续和离散数据

Question

我正在努力在一个网格中绘制一个雪深数据集，深度作为连续变量。 但是，网格中的某些地块被部分覆盖。这些被划分为与深度测量值相同的变量中的> 50％和<50％的图，标记为“上”和“下”。

当我尝试使用ggplot 2绘制数据时：

myplot <- ggplot()+
geom_tile(data=table, aes(x=factor(Row), y=Colum, fill= Snow_depth))+
scale_fill_gradient(low="#0066CC", high="#FF3333")

我当然会收到错误：

Error: Discrete value supplied to continuous scale

如何包含这些离散数据并给它们提供清晰的颜色标签，以便所有信息都显示在同一张图像中？

Answer 1

编辑：

再考虑一下，一种方法可能是在覆盖的图中使用ggpattern中的模式：

set.seed(3)
table <- data.frame(Row = rep(1:9,times=9), Colum = rep(1:9,each=9),
                   Snow_depth = runif(81,10,100),
                   Cover = as.logical(round(runif(81,0,1),0)))

#remotes::install_github("coolbutuseless/ggpattern")
library(ggpattern)
library(ggplot2)
ggplot(data=table, aes(x=as.factor(Row), y=as.factor(Colum))) +
  geom_tile(aes(fill= Snow_depth)) +
  scale_fill_gradient(low="#0066CC", high="#FF3333") +
  geom_tile_pattern(aes(pattern_alpha = Cover),
                    fill = NA, pattern = 'crosshatch',
                    pattern_fill = "black",
                    pattern_angle = 45,
                    pattern_density = 0.1,
                    pattern_spacing = 0.025,
                    pattern_key_scale_factor = 0.5) +
  scale_pattern_alpha_discrete(range = c(0,0.5), labels = c("No","Yes")) +
  labs(x = "Row",y = "Column")