R，ggplot2：将填充值更改为谨慎颜色而不是渐变
R, ggplot2: change fill value to discreet color instead of gradient
我有以下数据：
text是指一个叙述，mi是一个特定特征的计数，shi是另一个特征的计数。我将它们放在数据框中，如下所示。我不确定如何使用值的向量手动重新创建此数据框，所以我提前道歉，因为这不像其他方式那样可重现。
test <- as.data.frame(read_excel("plotTEST.xlsx"))
我想要一个图表，其中 x 轴是每个文本，y 显示两个特征的计数。我想近似这样的东西，如图here or here.
使用这些示例，我拼凑了以下内容：
ggplot(data=test, aes(x=text, y=mi, fill=shi)) + geom_bar(stat="identity")
经过大量调整和多次迭代，这是我得到的最干净的结果：
渐变似乎是默认设置，尽管我尝试按照链接示例中的代码进行操作，但它们没有提供有关颜色选择的具体细节。
这是一种渐变而不是离散颜色，我怎样才能得到 mi 计数和 shi 计数的离散颜色？
我尝试了提到的这个解决方案 here 但这只会导致另一个具有不同颜色的单独键，并且每个条都有不同颜色的轮廓。
你可以这样做：
# Your data
text <- c("Swollen River", "Anaconda caught", "Chikwan speaks", "Lake explodes","Swollen River", "Anaconda caught", "Chikwan speaks", "Lake explodes")
values <- c(5,18,45,98, 0,9,33,23)
type <- c("mi","mi","mi","mi","shi","shi","shi","shi")
df <- data.frame("text"=text, "values"=values, "type"=type)
# dataframe in long format:
# text values type
# 1 Swollen River 5 mi
# 2 Anaconda caught 18 mi
# 3 Chikwan speaks 45 mi
# 4 Lake explodes 98 mi
# 5 Swollen River 0 shi
# 6 Anaconda caught 9 shi
# 7 Chikwan speaks 33 shi
# 8 Lake explodes 23 shi
# Plot
ggplot(data=df, aes(x=text, y=values, fill=type)) + geom_bar(stat="identity")
换句话说，您确实需要最好是长格式的数据，如 here 所述。
我有以下数据：
text是指一个叙述，mi是一个特定特征的计数，shi是另一个特征的计数。我将它们放在数据框中，如下所示。我不确定如何使用值的向量手动重新创建此数据框，所以我提前道歉，因为这不像其他方式那样可重现。
test <- as.data.frame(read_excel("plotTEST.xlsx"))
我想要一个图表，其中 x 轴是每个文本，y 显示两个特征的计数。我想近似这样的东西，如图here or here.
使用这些示例，我拼凑了以下内容：
ggplot(data=test, aes(x=text, y=mi, fill=shi)) + geom_bar(stat="identity")
经过大量调整和多次迭代，这是我得到的最干净的结果：
渐变似乎是默认设置，尽管我尝试按照链接示例中的代码进行操作，但它们没有提供有关颜色选择的具体细节。
这是一种渐变而不是离散颜色，我怎样才能得到 mi 计数和 shi 计数的离散颜色？
我尝试了提到的这个解决方案 here 但这只会导致另一个具有不同颜色的单独键，并且每个条都有不同颜色的轮廓。
你可以这样做：
# Your data
text <- c("Swollen River", "Anaconda caught", "Chikwan speaks", "Lake explodes","Swollen River", "Anaconda caught", "Chikwan speaks", "Lake explodes")
values <- c(5,18,45,98, 0,9,33,23)
type <- c("mi","mi","mi","mi","shi","shi","shi","shi")
df <- data.frame("text"=text, "values"=values, "type"=type)
# dataframe in long format:
# text values type
# 1 Swollen River 5 mi
# 2 Anaconda caught 18 mi
# 3 Chikwan speaks 45 mi
# 4 Lake explodes 98 mi
# 5 Swollen River 0 shi
# 6 Anaconda caught 9 shi
# 7 Chikwan speaks 33 shi
# 8 Lake explodes 23 shi
# Plot
ggplot(data=df, aes(x=text, y=values, fill=type)) + geom_bar(stat="identity")
换句话说，您确实需要最好是长格式的数据，如 here 所述。