如何将情节与传说结合起来？

Question

我正在尝试将图例附加到 R 中的图上。 我尝试了以下代码（取自 http://www.harding.edu/fmccown/r/ )

# Define cars vector with 5 values
cars <- c(1, 3, 6, 4, 9)

# Define some colors ideal for black & white print
colors <- c("white","grey70","grey90","grey50","black")

# Calculate the percentage for each day, rounded to one 
# decimal place
car_labels <- round(cars/sum(cars) * 100, 1)

# Concatenate a '%' char after each value
car_labels <- paste(car_labels, "%", sep="")

# Create a pie chart with defined heading and custom colors
# and labels
pie(cars, main="Cars", col=colors, labels=car_labels,
   cex=0.8)

# Create a legend at the right   
legend(1.5, 0.5, c("Mon","Tue","Wed","Thu","Fri"), cex=0.8, 
   fill=colors)

然而，这并不能很好地工作。在 pie(cars, main="Cars", col=colors, labels=car_labels,cex=0.8) 行之后，显示的图没有图例:-) .......我在互联网上看到的每个示例似乎在绘图函数之后都有 legend 函数，所以看起来很奇怪..............

当我尝试执行图例时我得到的函数

图例(1.5, 0.5, c("星期一","星期二","星期三","星期四","星期五"), cex=0.8, + 填充=颜色） strwidth(图例，单位 =“用户”，cex = cex) 中的错误： plot.new尚未被调用

Answer 1

你脱离了坐标系。请尝试此操作

# Create a legend at the right   
legend("topleft", c("Mon","Tue","Wed","Thu","Fri"), cex=0.8, fill=colors)

，它会生成下面的图表：

有关不同的情况，请参阅 legend 的帮助页面放置选项。

Answer 2

我认为 1.5, 0.5 的位置使其脱离了页面。尝试

legend("right", c("Mon","Tue","Wed","Thu","Fri"), cex=0.8, fill=colors)

使用 pie 函数后，它会显示为没有图例； legend 函数将图例添加到当前绘图中。

附言。您还可以考虑其他类型的图。饼图因视觉上的误导而臭名昭著。