CIYUN

#瀑布图
head(Titanic)
df <- Untable(Titanic) 
str(df)
d <- table(df$Class)
d1 <- as.data.frame(d)
f <- factor(d1$Var1,ordered = T,levels = d1$Var1)
df <- data.frame(Class=f,Freq=d1$Freq)
library(waterfall)
waterfallchart(Freq~Class,xlab="Class",data = df)
#词云图

library(jiebaR)
library(wordcloud)
mixseg <- worker()
text<-"Chip Chat 设计流程图
作为设计过程的一部分，团队让 ChatGPT 设计了自己的指令集架构（ISA）、汇编器、算术逻辑单元（ALU）、操作码、优化等等。值得注意的是，启动该项目的第一个提示词是这样的：“让我们一起设计一个全新的微处理器吧。我们在空间和 I / O 方面受到严重的限制。我们必须在 ASIC 的 1000 个标准单元内完成，所以我认为我们需要限制自己使用基于累加器的 8 位架构，没有多字节指令。考虑到这些，你认为我们应该如何开始？”

124 条消息之后，团队成功地设计了一个 8 位基于累加器的微处理器，具有与可比较的 PIC 产品相同的功能，这个芯片随后被送去在 Skywater 130 nm shuttle 上制造。该团队声称，这项研究标志着第一次由 LLM 设计的 IC 被实际制造出来。

从这个实验中该团队得出结论，ChatGPT 确实可以作为一种真实世界的解决方案来设计功能性的芯片。

根据皮尔斯博士的说法，这并不一定意味着 AI 会取代人类工程师，“这并不意味着 AI 要取代工程师，因为总会有一些工具和工作是这些 AI 做不到的。它们产生的东西也总会有一些缺点，因为它们工作的方式本质上就是如此。”
"
text_seg1 <- segment(text,mixseg)
seg <- segment(text_seg1,mixseg)
seg <- seg[nchar(seg)>1]
seg <- table(seg)
#去除不想要的词汇

seg <- seg[!grepl('[0-9]+',names(seg))] 
length(seg)
seg <-sort(seg,decreasing = TRUE)
seg <- seg+1
bmp("C:\\Users\\admin\\Desktop\\clouddayunhesuzhou.png",width = 500,height = 500)
par(bg="white")
wordcloud :: wordcloud(names(seg),seg,colors = rainbow(50),random.order=F)
dev.off()