Ответ 1
Вот что я придумал на основе этой идеи. Логотип R, взятый из Википедии.
library(png)
fill_images <- function()
{
l <- list()
for (i in 1:nrow(df3))
{
for (j in 1:floor(df3$units[i]))
{
#seems redundant, but does not work if moved outside of the loop (why?)
img <- readPNG("~/../Rlogo.png")
g <- rasterGrob(img, interpolate=TRUE)
l <- c(l, annotation_custom(g, xmin = i-1/2, xmax = i+1/2, ymin = j-1, ymax = j))
}
}
l
}
p <- ggplot(df3, aes(what, units)) +
geom_bar(fill="white", colour="darkgreen", alpha=0.5, stat="identity") +
coord_flip() +
scale_y_continuous(breaks=seq(0, 20, 2)) +
scale_x_discrete() +
theme_bw() +
theme(axis.title.x = element_blank(), axis.title.y = element_blank()) +
fill_images()
p
Я не совсем уверен, что лучший способ рисовать частичные изображения.
Обновление:
Собственно, это было легче, чем я ожидал. Я зажимаю изображение, рисуя белый прямоугольник над его частью. Обратите внимание, что geom_bar должен быть сверху, чтобы прямоугольник отсечения не повлиял на него. Была небольшая проблема с линиями сетки (они были частично скрыты этими белыми прямоугольниками), поэтому мне пришлось жестко обозначить их положение и восстановить их вручную. Разумеется, это не идеальное решение, но я не знаю, как программно получить позицию сетки. Во всяком случае, последний сюжет выполняет эту работу, и он тоже выглядит причудливым!
library(png)
fill_images <- function()
{
l <- list()
for (i in 1:nrow(df3))
{
for (j in 1:ceiling(df3$units[i]))
{
img <- readPNG("~/../Rlogo.png")
g <- rasterGrob(img, interpolate=TRUE)
l <- c(l, annotation_custom(g, xmin = i-1/2, xmax = i+1/2, ymin = j-1, ymax = j))
}
}
l
}
clip_images <- function(restore_grid = TRUE)
{
l <- list()
for (i in 1:nrow(df3))
{
l <- c(l, geom_rect(xmin = i-1/2, xmax = i+1/2,
ymin = df3$units[i], ymax = ceiling(df3$units[i]),
colour = "white", fill = "white"))
if (restore_grid && ceiling(df3$units[i]) %in% major_grid)
l <- c(l, geom_segment(x = i-1, xend = i+1,
y = ceiling(df3$units[i]),
yend = ceiling(df3$units[i]),
colour = grid_col, size = grid_size))
}
l
}
grid_col <- "grey50"
grid_size <- 0.6
major_grid <- 0:10 * 2
p <- ggplot(df3, aes(what, units)) +
fill_images() +
clip_images() +
geom_bar(fill=NA, colour="darkgreen", size=1.2, alpha=0.5, stat="identity") +
coord_flip() +
scale_y_continuous(breaks=seq(0, 20, 2)) +
scale_x_discrete() +
theme_bw() +
theme(axis.title.x = element_blank(), axis.title.y = element_blank(),
panel.grid.major.x = element_line(colour = grid_col, size = grid_size),
panel.grid.major.y = element_line(colour = NA))
p
Чтобы сохранить файл .svg, используйте, например,
ggsave(file="test.svg", plot=p, width=10, height=8)
Если вы хотите иметь заполняющее изображение в виде файла .svg, посмотрите grImport package. Кажется, вам придется конвертировать .svg в .ps вручную (например, с помощью imagemagick), а затем следовать руководству.
#mediaviewer/File:Rlogo.png){kind=link}