将图例添加到条形图中

Question

我有一个简单的条形图：

[<AbstractClass; Sealed>]
type AppHolder private () =
    static let processor =
        printfn "Starting..."
        Agent.Start(fun inbox ->
            // ...
        )

    static member HandleAction (action:obj) =
        processor.Post action

如何在条形图中添加图例？

Answer 1

尝试使用ggplot。它会自动包含一个图例。

df <- tibble(
  y = 1:5,
  x = letters[1:5]
)
ggplot(df, aes(y = y, x = x)) +
  geom_col(aes(fill = x))

Answer 2

ggplot仅报告每个国家/地区收集的变量响应的数量，而不报告变量中的级别（这是一个因素）。我已经能够使用baplot函数添加图例并添加

legend("topright", legend = c("Level 1", "Level 2"), fill = c("red", "darkblue"))