R-如何"創建"或繪制缺失資料？ -有解無憂

我有一個資料集，AIS_dat，它關注的是在Covid封鎖前和封鎖期間，在一周的不同日子（Day）出現在三個地點（Site）的船只數量（BoatCount）。

rm(list = ls()）
setwd('K:/SoundTrap/Boats/PSD Output/uty cycle data/TOL analysis')
getwd()

AIS_dat<-read.csv("AllSitesConcat_dBcalcs_50-24000Hz_matchedCameraCounts.csv"/span>) 
str(AIS_dat)

#set factors。
AIS_dat$Lockdown<- as.factor(AIS_dat$Lockdown)

#change order of sites[/span](改變網站順序)
AIS_dat$Site<-factor(AIS_dat$Site，) 
                     level=c('Kawau'。 'Tiritiri','Noises'））

#change order of days[/span]。
AIS_dat$Day<-factor(AIS_dat$Day，> 
                     level=c('Mon'。 'Tue','Wed'。 '星期四','星期五'。 'Sat','Sun'））

#hour of day as factor[/span]。
AIS_dat$小時<-作為.因素(AIS_dat$小時)


#Look at variation between sites
bp< -ggplot（AIS_dat,  aes(x=Day,/span>y=BoatCount。 fill=factor（Site）））  
  geom_boxplot() 
  ylab(expression("Number of Boats"）） 
  xlab("Day of Week")/span> 
  scale_fill_manual(values = get_pal("Kereru")。 
                    name="Site"）  
  theme_bw()
bp

bp<-bp theme(axis.text。 x = element_text(angle = 0。 size=14）,
             axis.text. y = element_text(size=14), axis.title.
             axis.title. x = element_text(size=14), axis.title.
             axis.title. y =element_text(size=14), axis.title.
             #legend.title = element_text(size = 14),
             #legend.text = element_text(size = 14)/span>
              ) #rotate x-axis labels

bp< -bp facet_grid（rows=vars(Lockdown)) #每個季節都有單獨的繪圖。
bp

情節看起來像這個

。

......這很了不起。但是，因為 "期間 "下沒有Tiritiri的資料，我們只看到兩個網站，而且有點誤導，因為網站的順序會改變。我希望在這個面板上有缺失的資料，以便明確哪個網站是哪個。我如何做到這一點呢？我必須在我的原始資料表中添加缺失資料嗎？我試過這樣做，但沒有成功，所以如果這是最好的方法，我不確定該怎么做？

資料集看起來像這個（但有17143行）：

uj5u.com熱心網友回復：

你可以將site和day組合成一個新的列，用于x軸的刻度。函式facet將默認以一種固定的方式安排x刻度線的值：

library(tidyverse) 

set.seed(1337)

before_data <-
  tribble()
  ~step, ~Site,
  "before", "K",
  "before", "T",
  "before", "N"
） %>%
  mutate()
    value = rnorm(10） %> % list（）
  ) %>%
  unnest(value)

during_data <-
  tribble()
    ~step, ~Site,
    "期間", "K",
    "期間", "N"
  ） %>%
  mutate()
    value = rnorm(10） %> % list（）
  ) %>%
  unnest(value)

data <- bind_rows(before_data, during_data) %> % mutate(day = "星期一")

資料 %>%
  mutate(x = paste0(day。  Site)) %> %
  ggplot(aes(x,value。 顏色= Site))  
    geom_boxplot()  
    facet_grid(~step)

^{創建于2021-09-13，由reprex包（v2.0.1）}

轉載請註明出處，本文鏈接：https://www.uj5u.com/net/318929.html

標籤：

上一篇：為什么GGPLOT會產生兩個圖例？

下一篇：ggplot標記的水平線出現在2個面上（X軸是日期，中間部分被洗掉）。