O(∩_∩)O哈哈哈~
# Sat Oct 24 01:58:33 2020 -
# 字符编码：UTF-8
# R 版本：R x64 4.0.3 for window 10
# cgh163email@163.com
# 个人笔记不负责任
# —— 拎了个梨🍐
.rs.restartR()
require(dplyr)
rm(list=ls());gc()
dt.all <- read.csv('001.csv')
# dt <- matrix(nrow = 4,ncol = 12)
dt.all <- as.matrix(dt.all)
color <- read.csv('color.csv')
cols <- gather(color)
head(cols)
col <- rainbow(48)
col %>% View()
barplot3d(
rows = 4,
cols = 12,
x = c(1,0),
y = c(0,1),
z = dt.all,
topcolors = cols, # 12个颜色
alpha = 0.7,
scalexy = 5, # 柱子粗细
xlabels = letters[1:12],
ylabels = LETTERS[1:4]
)
