服务器之家

服务器之家 > 正文

R语言 如何保留大于或小于特定数值的行

时间:2022-01-05 16:24     来源/作者:小马同学

如下所示:

newdata<-subset(x, x$var > 某一数字)

x为矩阵 var是其中的一个变量

补充:r语言 循环次数超过了50这个最大值_错过了520还可以一起过儿童节,如何用R语言‘撸'一个文字跑马灯去表白...

 

引言

和大家分享一下如何用R语言来写一个文字跑马灯吧。这个文字跑马灯写起来基本不费时间,在办公室摸一下鱼大概就够了。

 

正文

这个文字跑马灯我准备按照面向对象编程来写。因为,面向对象就会有对象。而且,这个东西写出来就是拿给你们去表白的。

首先我们定义一个基类,这个基类要具有像PPT一样的逐页播放文字的功能。

#' @title projector
projector <- R6::R6Class(
classname = "projector",
public = list(
initialize = function(sildes) { # 构造函数
 private$slides <- sprintf("r%s",sildes) # 给每页文字的开始加上'r'字符以覆盖上一页
 private$length <- base::length(private$slides) # 记录所有的播放页数量
 private$position <- 0 # 初始播放位置为第一页之前
 private$slide <- private$slides[private$position]
},
nextslide = function(){ # 播放下一页
  private$position <- private$position + 1 # 获取下一页位置
  if ( private$position > private$length ){ # 播放到最后一页后回到第一页
    private$position <- private$position - private$length
  }
  private$slide <- private$slides[ private$position ] # 设置当前播放页为下一页
  base::cat(private$slide) # 播放当前播发页
},
autoplay = function(fps = 10){ # 自动播放,播放速率每秒10页
  while(T){ # 无限循环,可以用for改写控制循环次数
    self$nextslide() # 播放下一页
    base::Sys.sleep(1/fps) # 休眠控制播放速率
  }
}
),
private = list(
slide = NA,# 当前播放页
slides = c(), # 所有的播放页
length = 0,# 播放页的总数
position = 0# 当前播放位置
)
)
#' @test 
player <- projector$new(c("我是第一页","我是第二页","我是第三页"))
player$nextslide() # 播放下一页
player$nextslide()
player$nextslide()
player$nextslide()
player$autoplay(3) # 以每秒三张的速率播放,可以使用 Ctrl+C 组合键 跳出

R语言 如何保留大于或小于特定数值的行

利用这个文字PPT播放器,我们只要设置好播放页就可以实现文字跑马灯了。比如:

player2 <- projector$new(
c(
"我是第一页    ",
"是第一页    我",
"第一页    我是",
"一页    我是第",
"页    我是第一",
"    我是第一页",
"   我是第一页 ",
"  我是第一页  ",
" 我是第一页   ", 
"我是第一页    " # 最后一页的下一页是第一页,让播放页闭环以到达流畅的视觉效果
)
)
player2$autoplay(3)

R语言 如何保留大于或小于特定数值的行

当然我们不需要那么傻的的每次都手动设置播放页。接下来,我们从PPT文字播放器这个基类派生一个类,这个派生类新增了根据跑马灯文字自动设置播放页的功能。

#' @title scroller
scroller <- R6::R6Class("scroller", 
inherit = projector,
public = list(
initialize = function(film, width = 50 ) { # 重载基类的构造函数,根据输入的文字和宽度自动设置播放页
  film <- paste0( base::strrep(" ",width), film,base::strrep(" ",width), collapse="" ) 
  slides <- rep( base::strrep(" ",width) , nchar(film)-width+1 )
  for( i in 1:length(slides) ){
    slides[i] <- substr(film,i,i+width-1)
  }
  super$initialize(slides)
}
)
)
#' @test 
boy <- scroller$new("你可真是个小可爱! 不如...  和我在一起吧^_^",50) # 设置播放页的宽度为50
boy$autoplay(10) # 以每秒10页的速率播放
girl <- scroller$new("哈哈哈*―* 我就知道你喜欢我! 好吧,我就勉强答应你咯~",50) # 设置播放页的宽度为50
girl$autoplay(10) # 以每秒10页的速率播放

R语言 如何保留大于或小于特定数值的行

R语言 如何保留大于或小于特定数值的行

以上为个人经验,希望能给大家一个参考,也希望大家多多支持服务器之家。如有错误或未考虑完全的地方,望不吝赐教。

原文链接:https://blog.csdn.net/xiaogedeshahai/article/details/99857423

相关文章

热门资讯

yue是什么意思 网络流行语yue了是什么梗
yue是什么意思 网络流行语yue了是什么梗 2020-10-11
蜘蛛侠3英雄无归3正片免费播放 蜘蛛侠3在线观看免费高清完整
蜘蛛侠3英雄无归3正片免费播放 蜘蛛侠3在线观看免费高清完整 2021-08-24
背刺什么意思 网络词语背刺是什么梗
背刺什么意思 网络词语背刺是什么梗 2020-05-22
2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全
2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全 2019-12-26
2021年耽改剧名单 2021要播出的59部耽改剧列表
2021年耽改剧名单 2021要播出的59部耽改剧列表 2021-03-05
返回顶部