如何替換/重命名給定字符串模式的行？

-1

df<- data.frame(

     employeeId = c(1,2,3,4,5,6), 
     linkToEmployee = c("http://intranet.homepageEmploye.com/herSalary", 
         "http://intranet.homepageEmploye.org/herSalary/Details", 
         "http://local.com/qa/for", 
         "here the homepage is missing", 
         "http://local.org/", 
         "here the homepage is missing")) 


     employeeId      linkToEmployee 

    1   1   http://intranet.homepageEmploye.com/herSalary 
    2   2 http://intranet.homepageEmploye.org/herSalary/Details 
    3   3        http://local.com/qa/for 
    4   4       here the homepage is missing 
    5   5          http://local.org/ 
    6   6       here the homepage is missing

現在我想這些鏈接轉換爲表格：

desired<- data.frame(

     employeeId = c(1,2,3,4,5,6), 
     linkToEmployee = c("intranet.com", 
          "intranet.org", 
          "local.com", 
          "here", 
          "local.org", 
          "here")) 


      employeeId linkToEmployee 

     1   1 intranet.com 
     2   2 intranet.org 
     3   3  local.com 
     4   4   here 
     5   5  local.org 
     6   6   here

我曾嘗試使用gsub內聯網的情況下，但這似乎並沒有按預期工作。

df$linkToEmployee <- gsub("http://intranet.homepageEmploye.com/", "intranet.com.", df$linkToEmployee)

然而，這並不按預期方式工作要做到這一點

來源

2017-04-19 Googme

特殊字符：。和/會搞亂你的gsub。它應該工作，如果你添加選項'fixed = TRUE'來停止它將其解釋爲正則表達式字符串。 –

什麼*確切*是您想要的結果？你的例子並沒有真正說明這一點，因爲它沒有概括。無論如何，您應該使用適當的URI解析器而不是臨時正則表達式。 –

的一種方法是使用對URL解析了一些非常有用的功能包urltools。首先你需要找出哪些是真正的URL。爲此，我搜索了包含TLD的字符串。

library(urltools) 

ind <- !is.na(suffix_extract(domain(df$linkToEmployee))$suffix) 

df$linkToEmployee[ind] <- sapply(strsplit(domain(df$linkToEmployee[ind]), '\\.|\\s+'), 
             function(i) paste(head(i, 1), tail(i, 1), sep = '.')) 

df$linkToEmployee[!ind] <- gsub('\\s+.*', '', df$linkToEmployee[!ind]) 

df 
# employeeId linkToEmployee 
#1   1 intranet.com 
#2   2 intranet.org 
#3   3  local.com 
#4   4   here 
#5   5  local.org 
#6   6   here

注意

確保您的網址變量不是因素。要麼用stringsAsFactors = FALSE讀取數據，要麼用

df$linkToEmployee <- as.character(df$linkToEmployee)

來源

2017-04-19 14:00:48 Sotos

thx，完美的作品！ – Googme

如何替換/重命名給定字符串模式的行？

回答

相關問題