搜索
人大经济论坛 › 附件下载

附件下载

所在主题：
文件名:  newdata.xlsx
资料下载链接地址: https://bbs.pinggu.org/a-3475941.html
附件大小:
31.08 KB   举报本内容
我想在数据导入时增加两个字段（类型、批次），附件newdata.xlsx所示。其中测试数据在testdata.zip中。请问如何操作？
序号企业名称《目录》序号商标产品型号产品名称备注类型批次

1

东风汽车公司3东风牌EQ5045XXYTBEV22纯电动厢式运输车新发布车型2018年第01批

2

东风汽车公司3东风牌EQ5045XXYTBEV23纯电动厢式运输车新发布车型2018年第01批

3

东风汽车公司3东风牌EQ5045XXYTBEV25纯电动厢式运输车新发布车型2018年第01批

4

东风汽车公司3东风牌EQ5080XXYTFCEV4燃料电池厢式运输车新发布车型2018年第01批


  1. library(openxlsx)
  2. library(tidyverse)
  3. library(stringr)
  4. library(plyr)

  6. # -------------------------------------------------------------------------
  7. #读取一个workbook的多个sheets
  8. xlsxfile <- "/testdata/"# 文件路径
  9. readsheets <- function(file) {
  10. sheetsnames <- getSheetNames(file)
  11. ldply(sheetsnames, .fun = function(x) read.xlsx(xlsxFile = file, sheet = x, startRow = 2))
  12. }

  14. #读取一个文件夹下的多个workbooks中的多个sheets
  15. readwks <- function(file) {
  16. filenames <- list.files(path = file, pattern = "*.xlsx", full.names = TRUE)
  17. ldply(filenames, .fun = readsheets)
  18. }

  20. newdata <- readwks(xlsxfile)
复制代码


    熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载，请在上面选择下载通道单击右健下载即可。
2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。
3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品，拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知，将积极的采取必要措施；同时，本站也将在技术手段和能力范围内，履行版权保护的注意义务。
(如有侵权，欢迎举报)
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

京ICP备16021002号-2 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问：王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2026-1-19 18:45