Rstudio报错Windows字体数据库里没有这样的字体系列

急！求！在做R语言商务数据语言分析实战的第二章商品零售购物篮分析的可视化时提示“windows字体数据库里没有这种字体系列”，这种情况下该怎么处理呀？看到相关的帖子，弄不明白。。报这个错会影响相关plot图的生成吧？怎么解决呀？
#可视化商品的支持度——商品的频率图
install.packages("arulesViz")
library(arulesViz)
par(family='STKaiti')#Mac下R语言使用plot绘图标题不显示
itemFrequencyPlot(TransRep,support = 0.1)  # support = 0.1 表示支持度至少为0.1
waitemFrequencyPlot(TransRep,topN = 20)  # topN = 20 表示支持度排在前20的商品

plot(RulesRep, control=list(jitter=2), shading = "lift")#不做要求
plot(sort(RulesRep, by="support")[1:10], method="grouped")#不做要求
plot(RulesRep, method='graph', shading = "lift",  control = list(type='items'))  # 关联图看相互关系
第一行代码运行图片如下（直接通过Rstudio保存的图片没法上传，淦！只能上传截图了），LS当时做的图的横坐标的字体是黑体，而且没有报错，她用的是苹果电脑，我是安卓，我们用安卓的同学都有这个报错：字体有问题。

img

第三章航空公司客户价值分析的最后的图也是，图例好像跟ls的不太一样，ls说也是字体问题让自己上网搜怎么弄，实在搜不到
#3-3 对航空客户分群
setwd( "C:/Users/DELL/Desktop/text")
zscoredFile<-read.csv('./zscoredFile.csv')
set.seed(123)
result<-kmeans(zscoredFile,5)
round(result$centers,3)
table(result$cluster)
library(fmsb)
max<-apply(result$centers,2,max)
min<-apply(result$centers,2,min)
df<-data.frame(rbind(max,min,result$centers))
radarchart(df=df,seg=5,plty = c(1:5),vlcex = 1,plwd = 2)
L<-1
for (i in 5) {
  legend(1.3,L,legend = paste("客户群",i),lty = i,lwd = 3,col = i,bty = "n")
  L<-L-0.2
}

图片如下，右上角图例好像跟ls的不太一样，都不知道对不对。而且我这个图好小啊喂，ls上课演示的图又大又清晰。ls说让自己搜一下怎么处理，实在不知道咋办了，只能提问了，哭辽

img

结果及报错如下

par(family='STKaiti')#Mac下R语言使用plot绘图标题不显示
itemFrequencyPlot(TransRep,support = 0.1) # support = 0.1 表示支持度至少为0.1
There were 50 or more warnings (use warnings() to see the first 50)
warnings()
警告信息：
1: In graphics::strwidth(labels, units = "inches", cex = cex.names) :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
2: In graphics::strwidth(labels, units = "inches", cex = cex.names) :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
3: In graphics::strwidth(labels, units = "inches", cex = cex.names) :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
4: In graphics::strwidth(labels, units = "inches", cex = cex.names) :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
5: In graphics::strwidth(labels, units = "inches", cex = cex.names) :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
6: In graphics::strwidth(labels, units = "inches", cex = cex.names) :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
7: In graphics::strwidth(labels, units = "inches", cex = cex.names) :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
8: In graphics::strwidth(labels, units = "inches", cex = cex.names) :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
9: In title(main = main, sub = sub, xlab = xlab, ylab = ylab, ... :
font family 'STKaiti' not found, will use 'sans' instead
10: In title(main = main, sub = sub, xlab = xlab, ylab = ylab, ... :
font family 'STKaiti' not found, will use 'sans' instead
11: In title(main = main, sub = sub, xlab = xlab, ylab = ylab, ... :
font family 'STKaiti' not found, will use 'sans' instead
12: In axis(if (horiz) 1 else 2, cex.axis = cex.axis, ...) :
font family 'STKaiti' not found, will use 'sans' instead
13: In axis(if (horiz) 1 else 2, cex.axis = cex.axis, ...) :
font family 'STKaiti' not found, will use 'sans' instead
14: In axis(if (horiz) 1 else 2, cex.axis = cex.axis, ...) :
font family 'STKaiti' not found, will use 'sans' instead
15: In axis(if (horiz) 1 else 2, cex.axis = cex.axis, ...) :
font family 'STKaiti' not found, will use 'sans' instead
16: In axis(if (horiz) 1 else 2, cex.axis = cex.axis, ...) :
font family 'STKaiti' not found, will use 'sans' instead
17: In axis(if (horiz) 1 else 2, cex.axis = cex.axis, ...) :
font family 'STKaiti' not found, will use 'sans' instead
18: In axis(if (horiz) 1 else 2, cex.axis = cex.axis, ...) :
font family 'STKaiti' not found, will use 'sans' instead
19: In axis(if (horiz) 1 else 2, cex.axis = cex.axis, ...) :
font family 'STKaiti' not found, will use 'sans' instead
20: In axis(if (horiz) 1 else 2, cex.axis = cex.axis, ...) :
font family 'STKaiti' not found, will use 'sans' instead
21: In axis(if (horiz) 1 else 2, cex.axis = cex.axis, ...) :
font family 'STKaiti' not found, will use 'sans' instead
22: In axis(if (horiz) 1 else 2, cex.axis = cex.axis, ...) :
font family 'STKaiti' not found, will use 'sans' instead
23: In axis(if (horiz) 1 else 2, cex.axis = cex.axis, ...) :
font family 'STKaiti' not found, will use 'sans' instead
24: In axis(if (horiz) 1 else 2, cex.axis = cex.axis, ...) :
font family 'STKaiti' not found, will use 'sans' instead
25: In axis(if (horiz) 1 else 2, cex.axis = cex.axis, ...) :
font family 'STKaiti' not found, will use 'sans' instead
26: In axis(if (horiz) 1 else 2, cex.axis = cex.axis, ...) :
font family 'STKaiti' not found, will use 'sans' instead
27: In axis(if (horiz) 1 else 2, cex.axis = cex.axis, ...) :
font family 'STKaiti' not found, will use 'sans' instead
28: In axis(if (horiz) 1 else 2, cex.axis = cex.axis, ...) :
font family 'STKaiti' not found, will use 'sans' instead
29: In axis(if (horiz) 1 else 2, cex.axis = cex.axis, ...) :
font family 'STKaiti' not found, will use 'sans' instead
30: In axis(if (horiz) 1 else 2, cex.axis = cex.axis, ...) :
font family 'STKaiti' not found, will use 'sans' instead
31: In text.default(bp, graphics::par("usr")[3] - (graphics::par("usr")[4] - ... :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
32: In text.default(bp, graphics::par("usr")[3] - (graphics::par("usr")[4] - ... :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
33: In text.default(bp, graphics::par("usr")[3] - (graphics::par("usr")[4] - ... :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
34: In text.default(bp, graphics::par("usr")[3] - (graphics::par("usr")[4] - ... :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
35: In text.default(bp, graphics::par("usr")[3] - (graphics::par("usr")[4] - ... :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
36: In text.default(bp, graphics::par("usr")[3] - (graphics::par("usr")[4] - ... :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
37: In text.default(bp, graphics::par("usr")[3] - (graphics::par("usr")[4] - ... :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
38: In text.default(bp, graphics::par("usr")[3] - (graphics::par("usr")[4] - ... :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
39: In text.default(bp, graphics::par("usr")[3] - (graphics::par("usr")[4] - ... :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
40: In text.default(bp, graphics::par("usr")[3] - (graphics::par("usr")[4] - ... :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
41: In text.default(bp, graphics::par("usr")[3] - (graphics::par("usr")[4] - ... :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
42: In text.default(bp, graphics::par("usr")[3] - (graphics::par("usr")[4] - ... :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
43: In text.default(bp, graphics::par("usr")[3] - (graphics::par("usr")[4] - ... :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
44: In text.default(bp, graphics::par("usr")[3] - (graphics::par("usr")[4] - ... :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
45: In text.default(bp, graphics::par("usr")[3] - (graphics::par("usr")[4] - ... :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
46: In text.default(bp, graphics::par("usr")[3] - (graphics::par("usr")[4] - ... :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
47: In text.default(bp, graphics::par("usr")[3] - (graphics::par("usr")[4] - ... :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
48: In text.default(bp, graphics::par("usr")[3] - (graphics::par("usr")[4] - ... :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
49: In text.default(bp, graphics::par("usr")[3] - (graphics::par("usr")[4] - ... :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
50: In text.default(bp, graphics::par("usr")[3] - (graphics::par("usr")[4] - ... :
font family 'STKaiti' not found, will use 'wqy-microhei' instead
There were 50 or more warnings (use warnings() to see the first 50)

不太明白相关帖子说的，什么临时性还有showtext()都是啥，看了相关链接，但是不明白。我刚接触Rstudio，就想完成布置的任务
它好像会影响我图的生成，能不能解决掉让他不报错呀？