abikoushi/nihongo.r

Last active August 29, 2015 14:10

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/abikoushi/956fa3e6452de50528cc.js"></script>
Save abikoushi/956fa3e6452de50528cc to your computer and use it in GitHub Desktop.

Download ZIP

日本語のフォントを使って Mac で plot したいときに使う。

Raw

	nihongo <- function (family = "HiraKakuPro-W3"){
	old =par(family = family)
	return(old)
	}

Author

abikoushi commented Nov 25, 2014

Example

#例1
#デフォルトはヒラギノ
old =nihongo()
hist(rnorm(100),main="ヒストグラム")
par(old)

#例2
#Osaka フォント
nihongo("Osaka")
hist(rnorm(100),main="ヒストグラム")

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment