R中的气泡图对应的点负值和正值

Question

我想绘制数据的气泡图。

这是我已有的：

library(sp)
library(rgdal)
require(gstat)
setwd("C:/Users/49151/Desktop")

#import data
data <- read.csv("kerpentest0909x.csv")

head(data)

hist(data$Z, breaks = 20, xlab = "subsidence rates (mm/year)", main = "Histogram of subsidence at Kreuz Kerpen")
summary(data$Z)

#if slght skewedness 
#data$Z.1 <- log10(data$Z)
#hist(data$Z.1, breaks = 10, xlab = "subsidence rates (mm/year)", main = "Histogram of subsidence at Kreuz Kerpen")

#convert data
coordinates(data) <- c("X", "Y")
#assigning projection
proj4string(data) <-CRS("+init=epsg:32632")

plot(data, asp=1, pch=1)

plot(data, asp=1, cex=4*data$Z/max(data$Z), pch=1)

绘图函数给我这个：

它向我展示了高正值。但是我缺乏执行以下操作的 R 经验：向我显示高负值和高正值以及两者之间的颜色区别。如果可能的话，我想看看每个点的值。这是我的数据：https://ufile.io/lne90ray

Answer 1

这是一种使用 sf 和 ggplot2...
的方法为了使绘图在视觉上更清晰，为点添加了颜色并将 alpha 设置为 0.5，因为绘图非常拥挤。您可以轻松编辑外观以满足您的需要。

library(sf)
library(ggplot2)

#import data
data <- read.csv("kerpentest0909x.csv")

data1 <- 
  st_as_sf(data, coords = c("X", "Y"), crs = 32632)

ggplot() + 
  geom_sf(data = data1, aes(size = Z, fill = Z), shape = 21, alpha = 0.5)+
  scale_fill_gradient(low = "red", high = "green")+
  theme_bw()

^{由 reprex package (v2.0.0)}

于 2021-09-17 创建

R中的气泡图对应的点负值和正值

Bubble plot corresponding dot negative and positive values in R

plot

r

gdal

gstat