使用 dplyr 我们可以仅将数据类型为整数的列更改为数字数据类型吗

•浏览 1

using dplyr can we change to numeric data type only those columns for which data type is integer

我想知道是否有任何方法可以使用 dplyr 或基本包仅将整数数据类型的列转换为数字？

我的数据集是这样的：

structure(list(V1 = c("AA0101","AA0101","AA0102","AA0102","AA0103","AA0103"), 

       V2 = 38080:38085, 

       V3 = c(0L, 50353564L, 13000567L, 50395060L, 0L, 0L),

       V4 = c(0L, 2L, 2L, 1L, 0L, 0L), 

       V5 = c("PS","NW","PS","NW","PS","NW"), 

       V6 = c("4/1/2019","4/1/2019","4/1/2019","4/1/2019","4/1/2019","4/1/2019"), 

       V7 = c("20:06:04","20:22:17","20:41:53","21:31:04","21:58:51","23:08:04"), 

       V8 = c("20:06:14","20:22:22","20:41:58","21:31:11","21:59:01","23:08:10"), 

       V9 = c(10L, 5L, 5L, 7L, 10L, 6L), 

       V10 = c("0:00:00","20:22:22","20:41:58","21:31:11","0:00:00","0:00:00"), 

       V11 = c("0:00:00","20:23:58","20:42:55","21:31:31","0:00:00","0:00:00"), 

       V12 = c(0L, 96L, 57L, 20L, 0L, 0L), 

       V13 = c("AGENT","AGENT","AGENT","AGENT","AGENT","HANG"), 

       V14 = c("20:06:13","20:23:57","20:42:54","21:31:30","21:59:00","0:00:00"), 

       V15 = c("20:08:07","20:25:41","20:43:43","21:34:52","22:01:03","0:00:00"), 

       V16 = c(114L, 104L, 49L, 202L, 123L, 0L), 

       V17 = c("DORIT","SHLOMO","DORIT","ZOHARI","DORIT","NO_SERVER")))str(dat)Classes ‘data.table’ and 'data.frame': 6 obs. of 17 variables:

$ V1 : chr "AA0101""AA0101""AA0102""AA0102" ...

$ V2 : int 38080 38081 38082 38083 38084 38085

$ V3 : int 0 50353564 13000567 50395060 0 0

$ V4 : int 0 2 2 1 0 0

$ V5 : chr "PS""NW""PS""NW" ...

$ V6 : chr "4/1/2019""4/1/2019""4/1/2019""4/1/2019" ...

$ V7 : chr "20:06:04""20:22:17""20:41:53""21:31:04" ...

$ V8 : chr "20:06:14""20:22:22""20:41:58""21:31:11" ...

$ V9 : int 10 5 5 7 10 6

$ V10: chr "0:00:00""20:22:22""20:41:58""21:31:11" ...

$ V11: chr "0:00:00""20:23:58""20:42:55""21:31:31" ...

$ V12: int 0 96 57 20 0 0

$ V13: chr "AGENT""AGENT""AGENT""AGENT" ...

$ V14: chr "20:06:13""20:23:57""20:42:54""21:31:30" ...

$ V15: chr "20:08:07""20:25:41""20:43:43""21:34:52" ...

$ V16: int 114 104 49 202 123 0

$ V17: chr "DORIT""SHLOMO""DORIT""ZOHARI" ...

- attr(*,".internal.selfref")=<externalptr>i1 <- sapply(dat, is.integer)

dat[i1] <- lapply(dat[i1], as.numeric)

当我这样做时：

structure(list(V1 = c("AA0101","AA0101","AA0102","AA0102","AA0103","AA0103"), 

       V2 = 38080:38085, 

       V3 = c(0L, 50353564L, 13000567L, 50395060L, 0L, 0L),

       V4 = c(0L, 2L, 2L, 1L, 0L, 0L), 

       V5 = c("PS","NW","PS","NW","PS","NW"), 

       V6 = c("4/1/2019","4/1/2019","4/1/2019","4/1/2019","4/1/2019","4/1/2019"), 

       V7 = c("20:06:04","20:22:17","20:41:53","21:31:04","21:58:51","23:08:04"), 

       V8 = c("20:06:14","20:22:22","20:41:58","21:31:11","21:59:01","23:08:10"), 

       V9 = c(10L, 5L, 5L, 7L, 10L, 6L), 

       V10 = c("0:00:00","20:22:22","20:41:58","21:31:11","0:00:00","0:00:00"), 

       V11 = c("0:00:00","20:23:58","20:42:55","21:31:31","0:00:00","0:00:00"), 

       V12 = c(0L, 96L, 57L, 20L, 0L, 0L), 

       V13 = c("AGENT","AGENT","AGENT","AGENT","AGENT","HANG"), 

       V14 = c("20:06:13","20:23:57","20:42:54","21:31:30","21:59:00","0:00:00"), 

       V15 = c("20:08:07","20:25:41","20:43:43","21:34:52","22:01:03","0:00:00"), 

       V16 = c(114L, 104L, 49L, 202L, 123L, 0L), 

       V17 = c("DORIT","SHLOMO","DORIT","ZOHARI","DORIT","NO_SERVER")))str(dat)Classes ‘data.table’ and 'data.frame': 6 obs. of 17 variables:

$ V1 : chr "AA0101""AA0101""AA0102""AA0102" ...

$ V2 : int 38080 38081 38082 38083 38084 38085

$ V3 : int 0 50353564 13000567 50395060 0 0

$ V4 : int 0 2 2 1 0 0

$ V5 : chr "PS""NW""PS""NW" ...

$ V6 : chr "4/1/2019""4/1/2019""4/1/2019""4/1/2019" ...

$ V7 : chr "20:06:04""20:22:17""20:41:53""21:31:04" ...

$ V8 : chr "20:06:14""20:22:22""20:41:58""21:31:11" ...

$ V9 : int 10 5 5 7 10 6

$ V10: chr "0:00:00""20:22:22""20:41:58""21:31:11" ...

$ V11: chr "0:00:00""20:23:58""20:42:55""21:31:31" ...

$ V12: int 0 96 57 20 0 0

$ V13: chr "AGENT""AGENT""AGENT""AGENT" ...

$ V14: chr "20:06:13""20:23:57""20:42:54""21:31:30" ...

$ V15: chr "20:08:07""20:25:41""20:43:43""21:34:52" ...

$ V16: int 114 104 49 202 123 0

$ V17: chr "DORIT""SHLOMO""DORIT""ZOHARI" ...

- attr(*,".internal.selfref")=<externalptr>i1 <- sapply(dat, is.integer)

dat[i1] <- lapply(dat[i1], as.numeric)

它返回给我以下信息：

structure(list(V1 = c("AA0101","AA0101","AA0102","AA0102","AA0103","AA0103"), 

       V2 = 38080:38085, 

       V3 = c(0L, 50353564L, 13000567L, 50395060L, 0L, 0L),

       V4 = c(0L, 2L, 2L, 1L, 0L, 0L), 

       V5 = c("PS","NW","PS","NW","PS","NW"), 

       V6 = c("4/1/2019","4/1/2019","4/1/2019","4/1/2019","4/1/2019","4/1/2019"), 

       V7 = c("20:06:04","20:22:17","20:41:53","21:31:04","21:58:51","23:08:04"), 

       V8 = c("20:06:14","20:22:22","20:41:58","21:31:11","21:59:01","23:08:10"), 

       V9 = c(10L, 5L, 5L, 7L, 10L, 6L), 

       V10 = c("0:00:00","20:22:22","20:41:58","21:31:11","0:00:00","0:00:00"), 

       V11 = c("0:00:00","20:23:58","20:42:55","21:31:31","0:00:00","0:00:00"), 

       V12 = c(0L, 96L, 57L, 20L, 0L, 0L), 

       V13 = c("AGENT","AGENT","AGENT","AGENT","AGENT","HANG"), 

       V14 = c("20:06:13","20:23:57","20:42:54","21:31:30","21:59:00","0:00:00"), 

       V15 = c("20:08:07","20:25:41","20:43:43","21:34:52","22:01:03","0:00:00"), 

       V16 = c(114L, 104L, 49L, 202L, 123L, 0L), 

       V17 = c("DORIT","SHLOMO","DORIT","ZOHARI","DORIT","NO_SERVER")))str(dat)Classes ‘data.table’ and 'data.frame': 6 obs. of 17 variables:

$ V1 : chr "AA0101""AA0101""AA0102""AA0102" ...

$ V2 : int 38080 38081 38082 38083 38084 38085

$ V3 : int 0 50353564 13000567 50395060 0 0

$ V4 : int 0 2 2 1 0 0

$ V5 : chr "PS""NW""PS""NW" ...

$ V6 : chr "4/1/2019""4/1/2019""4/1/2019""4/1/2019" ...

$ V7 : chr "20:06:04""20:22:17""20:41:53""21:31:04" ...

$ V8 : chr "20:06:14""20:22:22""20:41:58""21:31:11" ...

$ V9 : int 10 5 5 7 10 6

$ V10: chr "0:00:00""20:22:22""20:41:58""21:31:11" ...

$ V11: chr "0:00:00""20:23:58""20:42:55""21:31:31" ...

$ V12: int 0 96 57 20 0 0

$ V13: chr "AGENT""AGENT""AGENT""AGENT" ...

$ V14: chr "20:06:13""20:23:57""20:42:54""21:31:30" ...

$ V15: chr "20:08:07""20:25:41""20:43:43""21:34:52" ...

$ V16: int 114 104 49 202 123 0

$ V17: chr "DORIT""SHLOMO""DORIT""ZOHARI" ...

- attr(*,".internal.selfref")=<externalptr>i1 <- sapply(dat, is.integer)

dat[i1] <- lapply(dat[i1], as.numeric)

使用 base R 我们可以做到

structure(list(V1 = c("AA0101","AA0101","AA0102","AA0102","AA0103","AA0103"), 

       V2 = 38080:38085, 

       V3 = c(0L, 50353564L, 13000567L, 50395060L, 0L, 0L),

       V4 = c(0L, 2L, 2L, 1L, 0L, 0L), 

       V5 = c("PS","NW","PS","NW","PS","NW"), 

       V6 = c("4/1/2019","4/1/2019","4/1/2019","4/1/2019","4/1/2019","4/1/2019"), 

       V7 = c("20:06:04","20:22:17","20:41:53","21:31:04","21:58:51","23:08:04"), 

       V8 = c("20:06:14","20:22:22","20:41:58","21:31:11","21:59:01","23:08:10"), 

       V9 = c(10L, 5L, 5L, 7L, 10L, 6L), 

       V10 = c("0:00:00","20:22:22","20:41:58","21:31:11","0:00:00","0:00:00"), 

       V11 = c("0:00:00","20:23:58","20:42:55","21:31:31","0:00:00","0:00:00"), 

       V12 = c(0L, 96L, 57L, 20L, 0L, 0L), 

       V13 = c("AGENT","AGENT","AGENT","AGENT","AGENT","HANG"), 

       V14 = c("20:06:13","20:23:57","20:42:54","21:31:30","21:59:00","0:00:00"), 

       V15 = c("20:08:07","20:25:41","20:43:43","21:34:52","22:01:03","0:00:00"), 

       V16 = c(114L, 104L, 49L, 202L, 123L, 0L), 

       V17 = c("DORIT","SHLOMO","DORIT","ZOHARI","DORIT","NO_SERVER")))str(dat)Classes ‘data.table’ and 'data.frame': 6 obs. of 17 variables:

$ V1 : chr "AA0101""AA0101""AA0102""AA0102" ...

$ V2 : int 38080 38081 38082 38083 38084 38085

$ V3 : int 0 50353564 13000567 50395060 0 0

$ V4 : int 0 2 2 1 0 0

$ V5 : chr "PS""NW""PS""NW" ...

$ V6 : chr "4/1/2019""4/1/2019""4/1/2019""4/1/2019" ...

$ V7 : chr "20:06:04""20:22:17""20:41:53""21:31:04" ...

$ V8 : chr "20:06:14""20:22:22""20:41:58""21:31:11" ...

$ V9 : int 10 5 5 7 10 6

$ V10: chr "0:00:00""20:22:22""20:41:58""21:31:11" ...

$ V11: chr "0:00:00""20:23:58""20:42:55""21:31:31" ...

$ V12: int 0 96 57 20 0 0

$ V13: chr "AGENT""AGENT""AGENT""AGENT" ...

$ V14: chr "20:06:13""20:23:57""20:42:54""21:31:30" ...

$ V15: chr "20:08:07""20:25:41""20:43:43""21:34:52" ...

$ V16: int 114 104 49 202 123 0

$ V17: chr "DORIT""SHLOMO""DORIT""ZOHARI" ...

- attr(*,".internal.selfref")=<externalptr>i1 <- sapply(dat, is.integer)

dat[i1] <- lapply(dat[i1], as.numeric)
赞 (0)
« 上一篇
下一篇 »

相关推荐

  • Spring部署设置openshift

    Springdeploymentsettingsopenshift我有一个问题让我抓狂了三天。我根据OpenShift帐户上的教程部署了spring-eap6-quickstart代码。我已配置调试选项，并且已将Eclipse工作区与OpehShift服务器同步-服务器上的一切工作正常，但在Eclipse中出现无法消除的错误。我有这个错误：cvc-complex-type.2.4.a:Invali…
    2025-04-161

  • 检查Java中正则表达式中模式的第n次出现

    CheckfornthoccurrenceofpatterninregularexpressioninJava本问题已经有最佳答案，请猛点这里访问。我想使用Java正则表达式检查输入字符串中特定模式的第n次出现。你能建议怎么做吗？这应该可以工作：MatchResultfindNthOccurance(intn,Patternp,CharSequencesrc){Matcherm=p.matcher…
    2025-04-161

  • 如何让 JTable 停留在已编辑的单元格上

    HowtohaveJTablestayingontheeditedcell如果有人编辑JTable的单元格内容并按Enter，则内容会被修改并且表格选择会移动到下一行。是否可以禁止JTable在单元格编辑后转到下一行？原因是我的程序使用ListSelectionListener在单元格选择上同步了其他一些小部件，并且我不想在编辑当前单元格后选择下一行。Enter的默认绑定是名为selectNext…
    2025-04-161

  • Weblogic 12c 部署

    Weblogic12cdeploy我正在尝试将我的应用程序从Tomcat迁移到Weblogic12.2.1.3.0。我能够毫无错误地部署应用程序，但我遇到了与持久性提供程序相关的运行时错误。这是堆栈跟踪：javax.validation.ValidationException:CalltoTraversableResolver.isReachable()threwanexceptionatorg.…
    2025-04-161

  • Resteasy Content-Type 默认值

    ResteasyContent-Typedefaults我正在使用Resteasy编写一个可以返回JSON和XML的应用程序，但可以选择默认为XML。这是我的方法：@GET@Path("/content")@Produces({MediaType.APPLICATION_XML,MediaType.APPLICATION_JSON})publicStringcontentListRequestXm…
    2025-04-161

  • 代码不会停止运行，在 Java 中

    thecodedoesn'tstoprunning,inJava我正在用Java解决项目Euler中的问题10，即"Thesumoftheprimesbelow10is2+3+5+7=17.Findthesumofalltheprimesbelowtwomillion."我的代码是packageprojecteuler_1;importjava.math.BigInteger;importjava…
    2025-04-161

  • Out of memory java heap space

    Outofmemoryjavaheapspace我正在尝试将大量文件从服务器发送到多个客户端。当我尝试发送大小为700mb的文件时，它显示了"OutOfMemoryjavaheapspace"错误。我正在使用Netbeans7.1.2版本。我还在属性中尝试了VMoption。但仍然发生同样的错误。我认为阅读整个文件存在一些问题。下面的代码最多可用于300mb。请给我一些建议。提前致谢publicc…
    2025-04-161

  • Log4j 记录到共享日志文件

    Log4jLoggingtoaSharedLogFile有没有办法将log4j日志记录事件写入也被其他应用程序写入的日志文件。其他应用程序可以是非Java应用程序。有什么缺点？锁定问题？格式化？Log4j有一个SocketAppender，它将向服务发送事件，您可以自己实现或使用与Log4j捆绑的简单实现。它还支持syslogd和Windows事件日志，这对于尝试将日志输出与来自非Java应用程序…
    2025-04-161
手机版技术脚本