R语言加载相关数据包，画出一朵玫瑰花的代码

加载相关数据包：

library(ggplot2)

画出一朵玫瑰花的代码：

theta <- seq(0, 2*pi, length.out = 401)[-1]
r <- abs(sin(4*theta)*cos(4*theta))
df <- data.frame(theta, r)
ggplot(df, aes(x = r*cos(theta), y = r*sin(theta))) +
  geom_point(size = 0.5, color = "red") +
  coord_fixed() +
  theme_void()

这段代码首先生成了一个包含401个点的极坐标向量theta，然后通过sin和cos函数计算出每个点对应的极径r，最后将theta和r组成一个数据框df。接下来使用ggplot2包中的ggplot函数，将数据框df作为数据源，并指定x和y轴的坐标。使用geom_point函数画出所有的点，设置点的大小为0.5，颜色为红色。使用coord_fixed函数将x和y轴的比例固定为1:1，使用theme_void函数去除网格线和背景。最终得到一朵玫瑰花的图形。