/
pbmdterms.R
61 lines (55 loc) · 2.77 KB
/
pbmdterms.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
library(dplyr)
library(ggplot2)
library(rentrez)
library(RColorBrewer)
df <- data.frame(Year = integer(), N = integer(), Type = character())
field <- "[title/abstract]"
query <- c("Lasik", "PRK", "Intralase", "ReLEx", "Intracor", "Wavefront guided",
"Phakic intraocular lens", "Multifocal IOL", "Refractive surgery")
for (i in query) {
for (j in 2000:2014) {
x1 <- entrez_search(db = "pubmed", term = paste0(i, field),
rettype = "count", datetype="pdat",
mindate = as.character(j),
maxdate = as.character(j)
)
df <- rbind(df, data.frame(Year = j, N = x1$count, Type = i))
Sys.sleep(0.4)
}
}
ggplot(df, aes(x = Year, y = N, color = Type)) +
geom_line(size = 1) +
geom_point(size = 3) +
xlab("") + ylab("Number of articles") +
ggtitle("Number of articles with a given term in the title or abstract per year") +
scale_color_brewer(palette = "Set1") +
guides(color = guide_legend(title = NULL, nrow = 3, keywidth = 2)) +
scale_x_continuous(breaks = seq(2000, 2014, 2)) +
scale_y_continuous(breaks = c(seq(0, 100, 10), seq(120, 300, 20))) +
theme(legend.position = "top",
legend.text = element_text(size = 13),
plot.title = element_text(face = "bold"))
df1 <- filter(df, Type != "Lasik", Type != "PRK", Type != "Refractive surgery")
ggplot(df1, aes(x = Year, y = N, color = Type)) +
geom_line(size = 1) +
geom_point(size = 3) +
xlab("") + ylab("Number of articles") +
ggtitle("Number of articles with a given term in the title or abstract per year") +
scale_color_brewer(palette = "Set1") +
guides(color = guide_legend(title = NULL, nrow = 2, keywidth = 2)) +
scale_x_continuous(breaks = seq(2000, 2014, 2)) +
scale_y_continuous(breaks = c(seq(0, 10, 2), seq(10, 50, 4))) +
theme(legend.position = "top",
legend.text = element_text(size = 13),
plot.title = element_text(face = "bold"))
ggplot(df, aes(x = Year, y = N)) +
geom_line(size = 1, color = "deepskyblue4") +
geom_point(size =3, color = "deepskyblue4") +
xlab("") + ylab("Number of articles") +
ggtitle("Number of articles with a given term in the title or abstract per year") +
facet_wrap( ~ Type, scales = "free") +
scale_x_continuous(breaks = seq(2000, 2014, 2)) +
theme(axis.text.x = element_text(angle=45, hjust=1),
strip.text = element_text(face = "bold"),
strip.background = element_rect(fill="slategray1"),
plot.title = element_text(face = "bold", vjust = 2))