我有一個代碼可以計算 10x10 的每個象限有多少點，并在每個象限中顯示結果
我有這個資料框
qx qy n
<dbl> <dbl> <int>
1 10 80 1
2 10 90 1
3 20 20 1
4 20 30 1
5 20 40 1
6 20 60 3
7 30 10 2
8 30 20 1
9 30 30 1
10 30 40 2
# ... with 38 more rows
這就是我創建圖表的方式
ggplot()
scale_x_continuous(breaks = seq(0, 100, by = 10))
scale_y_continuous(breaks = seq(0, 100, by = 10))
geom_text(data=df, mapping=aes(x=qx-5, y=qy-5, label=n, size=1))
如何將缺少的象限添加到資料框中？
缺少象限：
10 10 0
20 10 0
70 10 0
...etc
uj5u.com熱心網友回復：
使用所有網格位置創建一個新的空資料框，然后用已知值填充可能會更容易。
詳情見評論：
library(dplyr)
#create default matrix with all grid locations
qx <- rep(seq(10, 90, 10), each=9)
qy <- rep(seq(10, 90, 10), 9)
empty <- data.frame(qx, qy)
data<- read.table(header=TRUE, text=" qx qy n
1 10 80 1
2 10 90 1
3 20 20 1
4 20 30 1
5 20 40 1
6 20 60 3
7 30 10 2
8 30 20 1
9 30 30 1
10 30 40 2")
#merge the known data with the master matrix
answer <-left_join(empty, data, by=c("qx"="qx", "qy"="qy"))
#replace NA with 0
answer$n[is.na(answer$n)] <-0
uj5u.com熱心網友回復：
遵循與@Dave2e 相同的邏輯，我tidyverse首先使用網格位置的所有組合創建一個資料框，然后加入資料，將NA值替換為 0，然后進行繪圖。由于我只使用資料的一個子集，因此這些值將與您問題中的網格不同。
library(tidyverse)
crossing(qx = seq(10, 100, 10), qy = seq(10, 100, 10)) %>%
left_join(., df, by = c("qx", "qy")) %>%
mutate(n = replace_na(n, 0)) %>%
ggplot(.)
scale_x_continuous(breaks = seq(0, 100, by = 10))
scale_y_continuous(breaks = seq(0, 100, by = 10))
geom_text(mapping = aes(x = qx - 5, y = qy - 5, label = n, size = 1))
輸出
資料
df <- structure(list(qx = c(10L, 10L, 20L, 20L, 20L, 20L, 30L, 30L,
30L, 30L), qy = c(80L, 90L, 20L, 30L, 40L, 60L, 10L, 20L, 30L,
40L), n = c(1L, 1L, 1L, 1L, 1L, 3L, 2L, 1L, 1L, 2L)), class = "data.frame", row.names = c("1",
"2", "3", "4", "5", "6", "7", "8", "9", "10"))
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/474540.html