library("figpatch") #https://bradyajohnston.github.io/figpatch/
library("patchwork")
Here is some quick code to help me plan a crop layout in Stardew Valley.
# load images
# https://stardewvalleywiki.com/Crops
<- figpatch::fig("Ancient_Fruit.png")
ancient_fruit <- figpatch::fig("Blueberry.png")
blueberry <- figpatch::fig("Cactus_Fruit.png")
cactus_fruit <- figpatch::fig("Coffee_Bean.png")
coffee_bean <- figpatch::fig("Corn.png")
corn <- figpatch::fig("Cranberries.png")
cranberries <- figpatch::fig("Grape.png")
grape <- figpatch::fig("Green_Bean.png")
green_bean <- figpatch::fig("Hops.png")
hops <- figpatch::fig("Hot_Pepper.png")
hot_pepper <- figpatch::fig("Pineapple.png")
pineapple <- figpatch::fig("Strawberry.png")
strawberry <- figpatch::fig("Tea_Leaves.png")
tea_leaves <- figpatch::fig("Tomato.png") tomato
<- patchwork::wrap_plots(
greenhouse_plot
# row 1
grape, hops, hot_pepper, hot_pepper, hot_pepper, hot_pepper, hot_pepper, hot_pepper, hot_pepper, hot_pepper, hot_pepper, hot_pepper,
# row 2
grape, hops, tomato, tomato, tomato, tomato, tomato, tomato, tomato, tomato, tomato, tomato,
# row 3
grape, tea_leaves, cranberries, cranberries, cranberries, cranberries, cranberries, cranberries, cranberries, cranberries, cranberries, cranberries,
# row 4
grape, tea_leaves, strawberry, strawberry, strawberry, strawberry, strawberry, strawberry, strawberry, strawberry, strawberry, strawberry,
# row 5
grape, tea_leaves, cactus_fruit, cactus_fruit, cactus_fruit, cactus_fruit, cactus_fruit, cactus_fruit, cactus_fruit, cactus_fruit, cactus_fruit, cactus_fruit,
# row 6
green_bean, tea_leaves, corn, corn, corn, corn, corn, corn, corn, corn, corn, corn,
# row 7
green_bean, tea_leaves, ancient_fruit, ancient_fruit, ancient_fruit, ancient_fruit, ancient_fruit, ancient_fruit, ancient_fruit, ancient_fruit, ancient_fruit, ancient_fruit,
# row 8
green_bean, tea_leaves, blueberry, blueberry, blueberry, blueberry, blueberry, blueberry, blueberry, blueberry, blueberry, blueberry,
# row 9
green_bean, hops, pineapple, pineapple, pineapple, pineapple, pineapple, pineapple, pineapple, pineapple, pineapple, pineapple,
# row 10
green_bean, hops, coffee_bean, coffee_bean, coffee_bean, coffee_bean, coffee_bean, coffee_bean, coffee_bean, coffee_bean, coffee_bean, coffee_bean,
ncol = 12
)
+
greenhouse_plot ::plot_annotation(title = "Stardew Valley",
patchworksubtitle = "crops that continue to produce")