library('ggplot2')
setwd("C:/bin")
data <- read.table('result_pita_results.tab', sep="\t", header=TRUE)
ddG_counts <- as.data.frame(table(data$ddG))
colnames(ddG_counts) <- c("ddG", "Count")
# 使用 ggplot2 绘制图表
p=ggplot(ddG_counts, aes(x = ddG, y = Count)) +
geom_bar(stat = "identity", width = 0.5) +
labs(x = "ddG 值", y = "UTR 的个数", title = "ddG 值与 UTR 的个数关系") +
theme_minimal()
ddG_counts <- as.data.frame(table(data$ddG))
colnames(ddG_counts) <- c("ddG", "Count")
# 将 ddG 列转换为数值类型
ddG_counts$ddG <- as.numeric(as.character(ddG_counts$ddG))
# 使用 ggplot2 绘制图表
p1=ggplot(ddG_counts, aes(x = ddG, y = Count)) +
geom_point(size = 3) +
geom_line() +
labs(x = "ddG 值", y = "UTR 的个数", title = "ddG 值与 UTR 的个数关系") +
theme_minimal()
ddG_counts <- as.data.frame(table(data$ddG))
colnames(ddG_counts) <- c("ddG", "Count")
# 将 ddG 列转换为数值类型
ddG_counts$ddG <- as.numeric(as.character(ddG_counts$ddG))
# 使用 ggplot2 绘制图表
p3=ggplot(ddG_counts, aes(x = ddG, y = Count)) +
geom_smooth(method = "loess", span = 0.25, se = FALSE) +
labs(x = "ddG value", y = "miRNA and mRNA interactions number") +
theme_minimal()
p3
