R璇�瑷�RFM妯″瀷鍒嗘瀽妗堜緥鎶ュ憡 闄勪唬鐮佹暟鎹?- 鐧惧害鏂囧簱

鏂板缓

涓婁紶

棣栭〉

鍔╂墜

鏈�杩?/div>

璧勬枡搴?/div>

宸ュ叿

 

 

銆愬師鍒涖�戦檮浠ｇ爜鏁版嵁

 

鏈夐棶棰樺埌娣樺疂鎵锯�滃ぇ鏁版嵁閮ㄨ惤鈥濆氨鍙�浠ヤ�?/p>

  

 

#

瀹夎��

 

# install.packages("RMySQL")

 

library

(

"RMySQL"

)

 

library

(RODBC)

 

library

(DBI)

 

library

(ggplot2)

 

library

(RMySQL)

 

drv <-

dbDriver

( 

"MySQL"

 )

 

l10n_info

()

 

## $MBCS

 

## [1] TRUE

 

## 

 

## $`UTF-8`

 

## [1] FALSE

 

## 

 

## $`Latin-1`

 

## [1] FALSE

 

## 

 

## $codepage

 

## [1] 936

 

# Connecting to MySQL:

 

# Once the RMySQL library is installed create a database connection obj

ect.

 

#

杩欓噷淇�鏀圭敤鎴峰悕瀵嗙爜鍜屾暟鎹�搴撳悕绉?/p>

 

con <-

dbConnect

(RMySQL::

MySQL

(), 

dbname =

"rfm"

, 

user=

'ro

ot'

, 

password=

'63341498'

)

 

 

#################

鏀瑰彉鏂囧瓧缂栫爜涓?/p>

GBK

鏂瑰紡

,

鍚﹀垯涓�鏂囦細涔辩�?/p>

###################

 

dbSendQuery

(con, 

'SET NAMES gbk'

) 

#

鍚戞暟鎹�搴撳啓鍏ユ垨璇诲彇鏁版嵁涔嬪墠鍔犱笂姝ゅ懡浠�

 

 

## <MySQLResult:3278728,0,0>

 

# Listing Tables and Fields:

 

 

dbListTables

(con)

 

##  [1] "frequency1""frequency2""frequency3""frequency4""frequency5"

 

##  [6] "frequency6""frequency7""frequency8""monetary2""monetary4"

 

## [11] "recency2""recency3""recency4""recency5""tb_trade"

 

## [16] "userrfm"