# Install packages
if (!requireNamespace("ggplot2", quietly = TRUE)) {
install.packages("ggplot2")
}if (!requireNamespace("dplyr", quietly = TRUE)) {
install.packages("dplyr")
}
# Load packages
library(ggplot2)
library(dplyr)
Circular Barplot
Note
Hiplot website
This page is the tutorial for source code version of the Hiplot Circular Barplot
plugin. You can also use the Hiplot website to achieve no code ploting. For more information please see the following link:
Drawing circular barplot
Setup
System Requirements: Cross-platform (Linux/MacOS/Windows)
Programming language: R
Dependent packages:
ggplot2
;dplyr
Data Preparation
# Load data
<- read.delim("files/Hiplot/023-circular-barplot-data.txt", header = T)
data
# convert data structure
$group <- as.factor(data$group)
data<- 2
empty_bar <- data.frame(matrix(NA, empty_bar*nlevels(data$group), ncol(data)))
to_add colnames(to_add) <- colnames(data)
$group <- rep(levels(data$group), each=empty_bar)
to_add<- rbind(data, to_add)
data <- data %>% arrange(group)
data $id <- seq(1, nrow(data))
data
<- data
label_data <- nrow(label_data)
number_of_bar <- 90 - 360 * (label_data$id-0.5) /number_of_bar
angle $hjust <- ifelse( angle < -90, 1, 0)
label_data$angle <- ifelse(angle < -90, angle+180, angle)
label_data
<- data %>%
base_data group_by(group) %>%
summarize(start=min(id), end=max(id) - empty_bar) %>%
rowwise() %>%
mutate(title=mean(c(start, end)))
# View data
head(data)
individual group value id
1 Mister 1 A 82 1
2 Mister 2 A 98 2
3 Mister 3 A 72 3
4 Mister 4 A 34 4
5 Mister 5 A 60 5
6 Mister 6 A 61 6
Visualization
# Circular Barplot
<- ggplot(data, aes(x=as.factor(id), y=value, fill=group)) +
p geom_bar(aes(x=as.factor(id), y=value, fill=group), stat="identity", alpha=0.5) +
ylim(-50,max(na.omit(data$value))+30) +
geom_segment(data=base_data, aes(x = start, y = -5, xend = end, yend = -5), colour = "black", alpha=0.8, size=0.8 , inherit.aes = FALSE ) +
geom_text(data=base_data, aes(x = title, y = -12, label=group), colour = "black", alpha=0.8, size=4, fontface="bold", inherit.aes = FALSE) +
geom_text(data=label_data, aes(x=id, y=value+8, label=individual, hjust=hjust), color="black", fontface="bold",alpha=0.6, size=3, angle= label_data$angle, inherit.aes = FALSE ) +
geom_text(data=label_data, aes(x=id, y=value-10, label=value, hjust=hjust), color="black", fontface="bold",alpha=0.6, size=3, angle= label_data$angle, inherit.aes = FALSE ) +
coord_polar() +
scale_fill_manual(values = c("#3b4992ff","#ee0000ff","#008b45ff","#631879ff")) +
theme_minimal() +
theme(text = element_text(family = "Arial"),
plot.title = element_text(size = 12,hjust = 0.5),
axis.title = element_blank(),
axis.text = element_blank(),
legend.position = "right",
legend.direction = "vertical",
legend.title = element_text(size = 10),
legend.text = element_text(size = 10),
panel.grid = element_blank(),
plot.margin = unit(rep(-1,4), "cm"))
p
