制作圓形堆積條形圖

Question

我想做一個圓形堆疊條 plot ，其中組是YEAR ，每個觀察的值是count 。

觀察值是ORIGEN和FROM列。 因此，每個ORIGEN必須包含每個“ FROM ”觀察結果，例如，來自HOSPITAL的樣本可能來自： ER 、特定單位或其他地方。 我希望Hospital （或其他ORIGEN ）的每個條形圖根據“ FROM ”（急診室、出口等）以不同的顏色顯示。

我接下來嘗試了，顯然我失敗了！

data <- isolate_from.ORIGEN %>% gather(key = "observation", value="value", -c(1,2)) 

#isolate_from.ORIGEN

# Set a number of 'empty bar' to add at the end of each group

empty_bar <- 2
nObsType <- nlevels(as.factor(data$observation))
to_add <- data.frame( matrix(NA, empty_bar*nlevels(data$YEAR)*nObsType, ncol(data)) )
colnames(to_add) <- colnames(data)
to_add$YEAR <- rep(levels(data$YEAR), each=empty_bar*nObsType )
data <- rbind(data, to_add)
data <- data %>% arrange(YEAR, FROM)
data$id <- rep( seq(1, nrow(data)/nObsType) , each=nObsType)


# Get the name and the y position of each label

    label_data <- data %>% group_by(id, observation) %>% summarize(tot=sum(count))
    number_of_bar <- nrow(label_data)
    angle <- 90 - 360 * (label_data$id-0.5) /number_of_bar     # I substract 0.5 because the letter must have the angle of the center of the bars. Not extreme right(1

) or extreme left (0)
label_data$hjust <- ifelse( angle < -90, 1, 0)
label_data$angle <- ifelse(angle < -90, angle+180, angle)
 

# prepare a data frame for base lines

base_data <- data %>% 
  group_by(YEAR) %>% 
  summarize(start=min(id), end=max(id) - empty_bar) %>% 
  rowwise() %>% 
  mutate(title=mean(c(start, end)))
 

# prepare a data frame for grid (scales)

grid_data <- base_data
grid_data$end <- grid_data$end[ c( nrow(grid_data), 1:nrow(grid_data)-1)] + 1
grid_data$start <- grid_data$start - 1
grid_data <- grid_data[-1,]

我無法在 R 中制作圖形，因為出現錯誤。

謝謝