In R dataframe,Is there function just like function %LIKE% in SQL ?
For instance, in below dataframe 'md', I want to add new column 'type' according to the exist column if it's include 'A' return 'A’, else 'Other'. I tried md$type <- ifelse(md$ori_character %like% 'A','A','Other'), it can't work.
Anyone can help? Thanks!
md <- data.frame(ori_character=c("USDFCHARGEBACKREFUNDQUANTITY","USGWCHARGEBACKREFUNDQUANTITY","USJTQUANTITY","CAJTADJUSTMENTQUANTITY","JPLDADJUSTMENTQUANTITY","JPXDREFUNDQUANTITY","DEHAORDERQUANTITY","DEHAREFUNDQUANTITY","ESGHADJUSTMENTQUANTITY","ESHAORDERQUANTITY","ESHAREFUNDQUANTITY","ESNIORDERQUANTITY","ESNIREFUNDQUANTITY","FRATADJUSTMENTQUANTITY","FRHAREFUNDQUANTITY","FRHAQUANTITY","FRHTADJUSTMENTQUANTITY","FRLJADJUSTMENTQUANTITY","ITATADJUSTMENTQUANTITY","ITHAREFUNDQUANTITY","ITLJREFUNDQUANTITY","ITLJORDERQUANTITY","ITMEORDERQUANTITY","ITMEREFUNDQUANTITY","UKFUKADJUSTMENTQUANTITY","UKHMZORDERQUANTITY","UKHMZQUANTITY","UKHMZREFUNDQUANTITY","UKHUKADJUSTMENTQUANTITY","NLHKADJUSTMENTQUANTITY","SETZADJUSTMENTQUANTITY","JPXDREFUNDPRODUCTSALES","DEHAORDERPRODUCTSALES","DEHAREFUNDPRODUCTSALES","ESHAORDERPRODUCTSALES","ESHAREFUNDPRODUCTSALES","ESNIORDERPRODUCTSALES","ESNIREFUNDPRODUCTSALES","FRHAREFUNDPRODUCTSALES","ITHAREFUNDPRODUCTSALES","ITLJREFUNDPRODUCTSALES","ITLJORDERPRODUCTSALES","ITMEORDERPRODUCTSALES","ITMEREFUNDPRODUCTSALES","UKHMZORDERPRODUCTSALES","UKHMZREFUNDPRODUCTSALES","USKNREFUNDSHIPPINGCREDITS","USLDREFUNDSHIPPINGCREDITS","JPLDREFUNDSHIPPINGCREDITS","DEHAORDERSHIPPINGCREDITS","DEHTREFUNDSHIPPINGCREDITS","ESHAORDERSHIPPINGCREDITS","ESHAREFUNDSHIPPINGCREDITS","ESNIORDERSHIPPINGCREDITS","FRHAREFUNDSHIPPINGCREDITS","FRMEREFUNDSHIPPINGCREDITS","FRNIREFUNDSHIPPINGCREDITS","ITHAREFUNDSHIPPINGCREDITS","ITMEORDERSHIPPINGCREDITS","ITMEREFUNDSHIPPINGCREDITS","UKFUKREFUNDSHIPPINGCREDITS","UKHMZORDERSHIPPINGCREDITS","ESHAORDERGIFTWRAPCREDITS","FRHAORDERGIFTWRAPCREDITS","FRLJREFUNDGIFTWRAPCREDITS","FRMEREFUNDGIFTWRAPCREDITS","FRNIORDERGIFTWRAPCREDITS","FRNIREFUNDGIFTWRAPCREDITS","ITHAORDERGIFTWRAPCREDITS","UKHUKORDERGIFTWRAPCREDITS","JPLDREFUNDCOSTOFPOINTS","JPXDREFUNDCOSTOFPOINTS","ESATORDERRETROCHARGEMARKETPLACEFACILITATORTAX","ESATREFUNDRETROCHARGEMARKETPLACEFACILITATORTAX","FRNIORDERMARKETPLACEFACILITATORTAX","ITLJREFUNDMARKETPLACEFACILITATORTAX","ITLJORDERMARKETPLACEFACILITATORTAX","UKHMZORDERMARKETPLACEFACILITATORTAX","UKHUKREFUNDMARKETPLACEFACILITATORTAX","JPXDREFUNDPROMOTIONALREBATES","DEHAORDERPROMOTIONALREBATES","DEHTREFUNDPROMOTIONALREBATES","ESHAORDERPROMOTIONALREBATES","ESHAREFUNDPROMOTIONALREBATES","ESNIORDERPROMOTIONALREBATES","ESNIREFUNDPROMOTIONALREBATES","FRHAREFUNDPROMOTIONALREBATES","FRNIREFUNDPROMOTIONALREBATES","ITHAREFUNDPROMOTIONALREBATES","ITMEORDERPROMOTIONALREBATES","UKHMZORDERPROMOTIONALREBATES","UKHMZREFUNDPROMOTIONALREBATES","JPXDREFUNDSALESTAXCOLLECTED","FRNIORDERSALESTAXCOLLECTED","ITHAORDERSALESTAXCOLLECTED","ITHAREFUNDSALESTAXCOLLECTED","ITLJREFUNDSALESTAXCOLLECTED","ITLJORDERSALESTAXCOLLECTED","UKHMZORDERSALESTAXCOLLECTED","UKHMZREFUNDSALESTAXCOLLECTED","JPXDREFUNDSELLINGFEES","DEHAORDERSELLINGFEES","DEHAREFUNDSELLINGFEES","ESHAORDERSELLINGFEES","ESHAREFUNDSELLINGFEES","ESNIORDERSELLINGFEES","ESNIREFUNDSELLINGFEES","FRHAREFUNDSELLINGFEES","ITHAREFUNDSELLINGFEES","ITLJREFUNDSELLINGFEES","ITLJORDERSELLINGFEES","ITMEORDERSELLINGFEES","ITMEREFUNDSELLINGFEES","UKHMZORDERSELLINGFEES","UKHMZREFUNDSELLINGFEES","USLDREFUNDFBAFEES","CAJTREFUNDFBAFEES","JPLDREFUNDFBAFEES","DEHAORDERFBAFEES","ESHAORDERFBAFEES","ESHAREFUNDFBAFEES","ESNIORDERFBAFEES","FRHAREFUNDFBAFEES","FRLJREFUNDFBAFEES","FRMEREFUNDFBAFEES","FRNIREFUNDFBAFEES","ITLJFBACUSTOMERRETURNFEEFBAFEES","ITLJORDERFBAFEES","ITMEORDERFBAFEES","ITMEREFUNDFBAFEES","UKFUKREFUNDFBAFEES","UKHMZORDERFBAFEES","JPLDLIGHTNINGDEALFEEOTHERTRANSACTIONFEES"))
md$type <- ifelse(md$ori_character %like% 'A','A','Other')
