0

由于它使用的本地 csv 文件，正在努力将其转换为 reprex。它说在目录中找不到该文件。任何帮助都非常感谢！

library(tidyverse)
library(ggplot2)
library(dplyr)
library(RColorBrewer)
library(cronR)
library(miniUI)
library(shiny)
library(shinyFiles)
library(pdftools)
library(tm)
library(readtext)
library(stringr)
library(plyr)
library(lubridate)
library(openxlsx)
library(rio)
library(reprex)


RAO <- readr::read_csv(file = "RateAddOnsExcel.csv")
RAO <- as.data.frame(read.csv(file = "RateAddOnsExcel.csv", header=TRUE, sep = ","))
RAO$X10.01.18 <- NULL
RAO$...4 <- NULL
RAO$...5 <- NULL
RAO$Quarter. <- NULL
names(RAO)[1:13] = c("ProviderName","AIMNumber", "ChainName", "RateEffectiveDate", "ComponentTotal", 
                     "VentAddOn", "QualityAddOn", "SpecialCareUnitAddOn", "AssessmentAddOn", 
                     "SelectedExpenditureAddOn", "RateReduction", "CaseMixRate", "CaseMixAssessment")
RAO[grepl("Myers", RAO$ProviderName),]
RAO[!grepl("Index", RAO$ProviderName),]

View(RAO)
reprex::reprex(outfile = NA)
4

0 回答 0