正文

r代码段显示了自定义的html表函数和示例。我的下一步是将此html表复制并粘贴到excel文件中，(代码片段)

author  author  2023-01-30  400

关键词：

# Quite a few requirements so read closely
# - variable must filter out NAs
# - variable must be a factor
# - variable must have factor labels (i think)
# - must be slightly comfortable with dplyr

# FUNCTION
tbl_steele <- function(data, names)
  require(htmlTable)
  a <- lapply(data, function(x) freq(x, plot = F))
  b <- do.call(rbind, a)
  remove_total <- "Total"
  d <- b[!rownames(b) %in% remove_total, ]
  e <- data.frame(d)
  e_prettyNum <- prettyNum(e$Frequency, big.mark = ",", scientific = FALSE, preserve.width = "none")
  f <- cbind(paste(e_prettyNum, " ", "(", round(e$Percent, 1), ")", sep = ""))
  g <- lapply(data, function(x) length(levels(x)))
  g1 <- do.call(rbind, g)
  h <- htmlTable(f, rnames = rownames(d), rgroup = names, n.rgroup = c(g1))
  return(h)


# EXAMPLE
# requires dplyr as I use the filter function to filter out NAs as function will not properly run
# Again, filter out NAs before passing varaible through function
mtcars %>% 
  select(gear) %>% 
  transmute(gear_fctr = factor(gear, 
                             levels = c(3, 4, 5), 
                             labels = c("3. Three", "4. Four", "5. Five"))) %>% 
  tbl_steele(data = ., names = names(.))

# COUNTER EXAMPLE TO "UNFACTORED" VARIABLE
# Change transmute to mutate and you'll see the weird behavior
mtcars %>% 
  select(gear) %>% 
  mutate(gear_fctr = factor(gear, 
                             levels = c(3, 4, 5), 
                             labels = c("3. Three", "4. Four", "5. Five"))) %>% 
  tbl_steele(data = ., names = names(.))
  
# function is in its infancy, hence the strict requirements (sorry)

模板类函数的未定义错误

...用插入功能插入数据并希望使用显示功能看到它。下面是代码：我把这段代码写在fin 查看详情

在 HTML 页面上并排显示两个图像

】在HTML页面上并排显示两个图像【英文标题】：DisplaytwoimagessidebysideonanHTMLPage【发布时间】：2011-02-1919:48:50【问题描述】：我正在尝试并排放置两个相同尺寸的图像。如果我使用table，那么我可以并排显示两个图像。但是在我的C... 查看详情

5定义一个js函数，反转单向链表(代码片段)

...删除快O(1)数组：查询快O(1),新增和删除慢O(n)创建链表代码示例interfaceILinkNodevalue:n 查看详情

展开和折叠 HTML 表数据行

...行进行分组，并创建一个展开/折叠函数，该函数将隐藏/显示具有相同程序字段的所有行。这是我的表格输出的示例。例如，有查看详情

反向解析示例(代码片段)

一、name命名示例1、定义对应关系 url(r‘^home666/$‘,views.home,name="home"),#给我的url匹配模式起名为homeurl(r‘^test/$‘,views.test),#什么都没有我们默认执行home函数url(r‘^$‘,views.home), 2定义函数 defhome(request):returnrender(request,"h... 查看详情

函数复习

一、函数1.为什么要使用函数？减少代码的冗余2.函数先定义后使用（相当于变量一样先定义后使用）3.函数的分类：内置函数：python解释器自带的，直接拿来用就行了自定义函数：根据自己的需求自己定义的函数deffunc():#函数名... 查看详情

c语言中的“宏”是指啥？

...是一种预处理指令，它提供了一种机制，可以用来替换源代码中的字符串。1、条件编译：C语言中，预处理过程读入源代码，检查包含预处理指令的语句和宏定义，并对源代码进行相应的转换，预处理过程还会删除程序中的注释... 查看详情

从零开始学习r语言——函数(代码片段)

本文首发于知乎专栏：https://zhuanlan.zhihu.com/p/61142959也同步更新于我的个人博客：https://www.cnblogs.com/nickwu/p/12568362.html函数是各种编程语言都很常见的功能，R语言有很多的内置函数，但通过自定义函数，我们可以创建能实现自己想... 查看详情

如何将 MYSQL 表的选定行显示到 HTML 页面的示例表中？

...显示它，但我不知道如何在html页面中添加它。这是我的js代码var 查看详情

[]和[[]]的联系与区别——r语言入门(代码片段)

目录引言1、定义2、区别联系3、总结引言不同于左缀函数，[]和[[]]类似于+-*/是用来索引的变量自己的中缀函数。本文来说明一下这两函数的区别与联系。1、定义下面的定义分别来自于这两个函数的帮助文档：'[]'... 查看详情

[]和[[]]的联系与区别——r语言入门(代码片段)

R Keras 中的自定义损失函数

...中的一个向量。我根据堆栈溢出可用的建议编写了自定义代码。功能如下：weighted_mse<-function(y_true,y_pred,weights)#converttensorstoRobjectsK<-backend() 查看详情

自定义标签每隔一段时间工作一次django？

...数。*更新添加目录树我完全误解了，我为我的项目创建了自定义标签。我很难让django接受它们（我不得不多次重新启动本地服务器）查看详情

For循环在R中使用多核和foreach

...时间】：2016-08-0111:55:32【问题描述】：我有一段非常长的代码，它由多个用户定义的函数组成，这些函数来源于我的代码开头。整个脚本在for循环中，它一个一个地读取csv文件，分析它们并每次迭代输出2个csv文件和一个PNG。平... 查看详情

java示例代码_在jsp中显示包含从数据库返回的所有行的html表

java示例代码_在jsp中显示包含从数据库返回的所有行的html表查看详情

R：基于自定义距离函数和多个条件快速匹配记录

】R：基于自定义距离函数和多个条件快速匹配记录【英文标题】：R:quicklymatchrecordsbasedoncustomdistancefunctionandmultiplecriteria【发布时间】：2014-08-2718:12:17【问题描述】：我在R中创建了一些函数，以根据自定义光谱相似性函数和所谓... 查看详情

如果表 1 中的日期早于表 2 中的日期，则 R 函数连接两个表

】如果表1中的日期早于表2中的日期，则R函数连接两个表【英文标题】：Rfunctiontojointwotablesifdateintable1isearlierthandateintable2【发布时间】：2021-08-0302:02:57【问题描述】：这个问题是关于R的tidyverse包中的Tibbles。我创建了以下示例来... 查看详情

R中的谐波级数和函数

...来显示已添加的系列术语的总数。到目前为止，这是我的代码：harmonic<-function(n)x<-c(0,1)while(length(x)<n)position& 查看详情