Этого раньше не было, и затем в какой-то момент моя функция размера просто сломалась до такой степени, что любая попытка указать размер приводит к тому, что изображения раздуваются до смешного размера. Вот код, в котором я установил размер .1:
G <- ggplot(G1, aes(x=Week, y=YPA)) +
geom_hline(yintercept=7.4, linetype="dotted") +
geom_segment(mapping=aes(x=1, xend=1, y=6.2, yend=7.8), linetype="longdash", color = "green") +
geom_segment(mapping=aes(x=3, xend=3, y=7.730769231, yend=7.2), linetype="longdash", color = "red") +
geom_segment(mapping=aes(x=4, xend=4, y=5, yend=7), linetype="longdash", color = "green") +
geom_segment(mapping=aes(x=5, xend=5, y=7, yend=8.4), linetype="longdash", color = "red") +
geom_segment(mapping=aes(x=6, xend=6, y=5.5, yend=8), linetype="longdash", color = "green") +
geom_segment(mapping=aes(x=7, xend=7, y=5.5, yend=6.5), linetype="longdash", color = "green") +
geom_segment(mapping=aes(x=9, xend=9, y=8.3, yend=9), linetype="longdash", color = "red") +
geom_segment(mapping=aes(x=10, xend=10, y=6.689655172, yend=8), linetype="longdash", color = "green") +
geom_segment(mapping=aes(x=11, xend=11, y=3.095238095, yend=6.2), linetype="longdash", color = "green") +
geom_segment(mapping=aes(x=12, xend=12, y=6.46875, yend=8.1), linetype="longdash", color = "green") +
geom_segment(mapping=aes(x=13, xend=13, y=8.518518519, yend=8), linetype="longdash", color = "red") +
labs(title = "\nOU Opponent Passing Efficiency By Week - 2019\n",
y = "\nYards per Pass Attempt", x="Week\n",
caption = "Figure: @stevenplai | Data: ESPN | Images: ESPN") +
theme_minimal() +
theme(
plot.title = element_text(size=40, face = "bold", family = "Helvetica"),
plot.subtitle = element_text(size=25, family = "Helvetica"),
axis.ticks = element_line(),
axis.text = element_text(size=15),
axis.title = element_text(size=30),
plot.caption = element_text(size=20, family = "Helvetica"),
legend.position = "none",
) +
scale_x_continuous(labels = c(1, 2, 3, 5, 6, 7, 8, 9, 10, 11, 12, 13, "CC"),
breaks=c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13)) +
scale_y_continuous(labels = c(4,5,6,7,"FBS Avg",8,9),
breaks=c(4,5,6,7,7.4,8,9)) +
geom_image(mapping=aes(image=logo, size=.1))
Это график, который этот код производит
И это то, что он выдает, если я просто удаляю «size = .1» из последней строки кода
Второе изображение намного ближе к тому, что я хочу, но изображения слишком малы, и на данный момент я Я не могу изменить размер.
Это никогда не случалось со мной раньше и раньше, поэтому я уверен, что просто сделал что-то глупое. Заранее благодарю за помощь.
Sidenote: это отдельный вопрос, но я все равно задам его, потому что это кажется простой вещью. Кто-нибудь знает, как тонировать / выцветать одно из изображений в каждом значении X? Ничто из того, что я пробовал, похоже не работает.