Norah 的技术博客

ifelse 函数的内部调用了这个print打印了一个2，而这个打印出来的2 又return给了ifelse 输出到终端

library(ggplot2);library(dplyr)
data.use = expand.grid(x = seq(0,5,.1),y = seq(0,3,.1)) %>% tibble() %>% 
    mutate(col = ifelse(0 <= y&y <1 ,"#FFCC00","#000000"),col = ifelse(1 <= y&y <2 ,"#FF0000",col))

data.use %>% ggplot(aes(x,y)) + geom_raster(aes(fill = col)) + coord_equal() + theme_classic() + scale_fill_identity()

```r
library(ggplot2);library(dplyr)
data.use = expand.grid(x = seq(0,5,.1),y = seq(0,3,.1)) %>% tibble() %>% 
    mutate(col = ifelse(0 <= y&y <1 ,"#FFCC00","#000000"),col = ifelse(1 <= y&y <2 ,"#FF0000",col))

data.use %>% ggplot(aes(x,y)) + geom_raster(aes(fill = col)) + coord_equal() + theme_classic() + scale_fill_identity()

![img](https://img-mid.csdnimg.cn/release/static/image/mid/ask/466822948376169.png "#left")

R的默认软件库没有这个软件，所以你无法安装。
去BiocManager库安装BiocManager::install("edgeR")

看问题是你当前的库目录存在特殊字符无法处理，更换默认的包库安装目录就好了

把你的R卸载了重装，在保证R能用的情况下重启Rstudio安装

我了解了下你的这个代码，看需求应该是替换掉原本的x轴标签，你用的这个“scale_x_continuous”方法报错提示应替换标签数目与绘制的x轴标签刻度数不匹配的。

对于标签替换，我提供下我的处理思路:

> str(data.plot)
'data.frame':    38 obs. of  4 variables:
 $ phaselabel : Factor w/ 43 levels "phase_1977","phase_1978",..: 1 1 1 1 2 2 2 2 3 3 ...
 $ time_series: int  1 1 1 1 2 2 2 2 3 3 ...
 $ sample     : chr  "Action" "Adventure" "Comedy" "Drama" ...
 $ value      : num  2.984 0.209 0.516 2.54 1.915 ...

其中，第一列phaselabel 是用于更改的x轴标签，属性为字符串；第二列time_series是用于绘制geom_stream()x轴提供的时间序列，是一个数值型序列；第三列sample 是样本；第四列是每个时间点上每个样本的值，属性为数值型序列。
这是绘图函数：

ggplot(data.plot,aes(x = time_series,y = value,fill=sample)) + geom_stream() +
    scale_x_continuous(breaks = seq(1,max(data.plot$time_series)),labels = unique(data.plot$phaselabel))  #调整x轴的刻度标签，按一个单位分隔开来，每个单位的刻度替换为unique(data.plot$phaselabel)中的标签

出图结果

数据集不大的话用简单高效的优化朴素算法

isprime <- function(num){
    num = as.integer(num)
    if (num == 1 || num == 0){return(NULL)}
    SqrtN = sqrt(num)
    for (i in seq(2,SqrtN)){ if ( (num %% i) == 0) {return(NULL)} }
    return(num)
}
unlist(lapply(1:100, function(x) isprime(x))) 

建议考虑爬虫

能提供下你当前使用的R version是32位的还是64位的不