「和」の定数
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
COLOR(red){SIZE(30){「和」の定数}}
元々は，letters や month.name の日本語版のつもりだったが...
必要になることは滅多にないだろうけど，いざ必要になったら...
-定数の定義
set.str <- function(x,del=",") return(unlist(strsplit(x,...
ひらがな <- set.str("あいうえおかきくけこさしすせそたち...
カタカナ <- set.str("アイウエオカキクケコサシスセソタチ...
# 色は匂へど 散りぬるを 我世誰ぞ 常ならむ 有為の奥山 今...
いろは <- set.str("いろはにほへとちりぬるをわかよたれそ...
イロハ <- set.str("イロハニホヘトチリヌルヲワカヨタレソ...
都道府県 <- set.str("北海道,青森県,岩手県,宮城県,秋田県,...
月 <- set.str("睦月,如月,弥生,卯月,皐月,水無月,文月,葉月...
曜日2 <- set.str("日月火水木金土","")
曜日 <- paste(曜日2,"曜日",sep="")
十干 <- set.str("甲乙丙丁戊己庚辛壬癸","")
五行 <- set.str("木火土金水","")
十干2 <- set.str("きのえ,きのと,ひのえ,ひのと,つちのえ,...
十二支 <- set.str("子丑寅卯辰巳午未申酉戌亥","")
十二支2 <- set.str("ね,うし,とら,う,たつ,み,うま,ひつじ,...
干支 <- paste(rep(十干,6),rep(十二支,5),sep="")
干支2 <- paste(rep(十干2,6),rep(十二支2,5),sep="")
六曜 <- 六輝 <- set.str("先勝,友引,先負,仏滅,大安,赤口")
十二宮 <- paste(set.str("白羊,金牛,双子,巨蟹,獅子,処女,...
十二宮2 <- paste(set.str("はくよう,きんぎゅう,そうし,き...
十二星座 <- paste(set.str("おひつじ,おうし,ふたご,かに,...
二十四節気 <- set.str("小寒,大寒,立春,雨水,啓蟄,春分,清...
二十八宿 <- structure(set.str("角斗奎井亢牛婁鬼氏女胃柳...
二十八宿2 <- structure(set.str("かく,と,けい,せい,こう,...
惑星 <- set.str("水星,金星,地球,火星,木星,土星,天王星,海...
単位 <- structure(list(
数値 = 10^c(seq(68,24,by=-4),21,20,18,16,15,12,9,8,6,4...
表記 = set.str("無量大数,不可思議,那由他,阿僧祇,恒河沙...
読み = set.str("むりょうたいすう,ふかしぎ,なゆた,あそ...
表記2 = set.str("-,-,-,-,-,-,-,-,-,-,-,ヨタ,ゼタ,-,エ...
記号 =set.str("-,-,-,-,-,-,-,-,-,-,-,Y,Z,-,E,-,P,T,G,-...
.Names = c("数値","表記","読み","表記2","記号"),
row.names = as.character(c(seq(68,24,by=-4),21,20,18,1...
class = "data.frame")
--応用例？？ その1
> get.干支 <- function(yyyy) {i <- (yyyy+57) %% 60; i <-...
> get.干支(1924) # 甲子園ができた
[1] "甲子(きのえね)"
> get.干支(1984) # 甲子郎さんは，たぶん1924年生まれで，...
[1] "甲子(きのえね)"
> get.干支(1966) # 一番最近の丙午（出生数大幅減）
[1] "丙午(ひのえうま)"
> get.干支(1906) # もう一つ前の丙午
[1] "丙午(ひのえうま)"
> get.干支(1666) # 八百屋お七の生まれた年（そもそもの俗...
[1] "丙午(ひのえうま)"
> get.干支(1868) # 戊辰戦争
[1] "戊辰(つちのえたつ)"
> get.干支(2006) # 今年は？
[1] "丙戌(ひのえいぬ)"
> get.十干 <- function(yyyy) {i <- (yyyy+7) %% 10; i <- ...
> get.十干(2006)
[1] "丙(ひのえ)"
> get.十二支 <- function(yyyy) {i <- (yyyy+9) %% 12; i <...
> get.十二支(2006)
[1] "戌(いぬ)"
--応用例？？ その2
> matrix(いろは,7)
[,1] [,2] [,3] [,4] [,5] [,6] [,7]
[1,] "い" "ち" "よ" "ら" "や" "あ" "ゑ"
[2,] "ろ" "り" "た" "む" "ま" "さ" "ひ"
[3,] "は" "ぬ" "れ" "う" "け" "き" "も"
[4,] "に" "る" "そ" "ゐ" "ふ" "ゆ" "せ"
[5,] "ほ" "を" "つ" "の" "こ" "め" "す"
[6,] "へ" "わ" "ね" "お" "え" "み" "い"
[7,] "と" "か" "な" "く" "て" "し" "ろ"
Warning message:
行列のデータ長 [47] が行数 [7] を整数で割った、もしくは...
R の特徴のリサイクルのため最後の列に破綻が生じるが，7行目...
-R に元々用意されているもの
--曜日
> format(ISOdate(2000, 8, 20:26), "%a")
[1] "日" "月" "火" "水" "木" "金" "土"
> format(ISOdate(2006, 8, 20:26), "%A")
[1] "日曜日" "月曜日" "火曜日" "水曜日" "木曜日" "金曜日...
--月
> format(ISOdate(2000, 1:12, 1), "%B")
[1] "1月" "2月" "3月" "4月" "5月" "6月" "7月" "8...
[11] "11月" "12月"
--時間
> format(ISOdate(2006, 8, 21, 18, 31, 32), "%X")
[1] "18時31分32秒"
終了行:
COLOR(red){SIZE(30){「和」の定数}}
元々は，letters や month.name の日本語版のつもりだったが...
必要になることは滅多にないだろうけど，いざ必要になったら...
-定数の定義
set.str <- function(x,del=",") return(unlist(strsplit(x,...
ひらがな <- set.str("あいうえおかきくけこさしすせそたち...
カタカナ <- set.str("アイウエオカキクケコサシスセソタチ...
# 色は匂へど 散りぬるを 我世誰ぞ 常ならむ 有為の奥山 今...
いろは <- set.str("いろはにほへとちりぬるをわかよたれそ...
イロハ <- set.str("イロハニホヘトチリヌルヲワカヨタレソ...
都道府県 <- set.str("北海道,青森県,岩手県,宮城県,秋田県,...
月 <- set.str("睦月,如月,弥生,卯月,皐月,水無月,文月,葉月...
曜日2 <- set.str("日月火水木金土","")
曜日 <- paste(曜日2,"曜日",sep="")
十干 <- set.str("甲乙丙丁戊己庚辛壬癸","")
五行 <- set.str("木火土金水","")
十干2 <- set.str("きのえ,きのと,ひのえ,ひのと,つちのえ,...
十二支 <- set.str("子丑寅卯辰巳午未申酉戌亥","")
十二支2 <- set.str("ね,うし,とら,う,たつ,み,うま,ひつじ,...
干支 <- paste(rep(十干,6),rep(十二支,5),sep="")
干支2 <- paste(rep(十干2,6),rep(十二支2,5),sep="")
六曜 <- 六輝 <- set.str("先勝,友引,先負,仏滅,大安,赤口")
十二宮 <- paste(set.str("白羊,金牛,双子,巨蟹,獅子,処女,...
十二宮2 <- paste(set.str("はくよう,きんぎゅう,そうし,き...
十二星座 <- paste(set.str("おひつじ,おうし,ふたご,かに,...
二十四節気 <- set.str("小寒,大寒,立春,雨水,啓蟄,春分,清...
二十八宿 <- structure(set.str("角斗奎井亢牛婁鬼氏女胃柳...
二十八宿2 <- structure(set.str("かく,と,けい,せい,こう,...
惑星 <- set.str("水星,金星,地球,火星,木星,土星,天王星,海...
単位 <- structure(list(
数値 = 10^c(seq(68,24,by=-4),21,20,18,16,15,12,9,8,6,4...
表記 = set.str("無量大数,不可思議,那由他,阿僧祇,恒河沙...
読み = set.str("むりょうたいすう,ふかしぎ,なゆた,あそ...
表記2 = set.str("-,-,-,-,-,-,-,-,-,-,-,ヨタ,ゼタ,-,エ...
記号 =set.str("-,-,-,-,-,-,-,-,-,-,-,Y,Z,-,E,-,P,T,G,-...
.Names = c("数値","表記","読み","表記2","記号"),
row.names = as.character(c(seq(68,24,by=-4),21,20,18,1...
class = "data.frame")
--応用例？？ その1
> get.干支 <- function(yyyy) {i <- (yyyy+57) %% 60; i <-...
> get.干支(1924) # 甲子園ができた
[1] "甲子(きのえね)"
> get.干支(1984) # 甲子郎さんは，たぶん1924年生まれで，...
[1] "甲子(きのえね)"
> get.干支(1966) # 一番最近の丙午（出生数大幅減）
[1] "丙午(ひのえうま)"
> get.干支(1906) # もう一つ前の丙午
[1] "丙午(ひのえうま)"
> get.干支(1666) # 八百屋お七の生まれた年（そもそもの俗...
[1] "丙午(ひのえうま)"
> get.干支(1868) # 戊辰戦争
[1] "戊辰(つちのえたつ)"
> get.干支(2006) # 今年は？
[1] "丙戌(ひのえいぬ)"
> get.十干 <- function(yyyy) {i <- (yyyy+7) %% 10; i <- ...
> get.十干(2006)
[1] "丙(ひのえ)"
> get.十二支 <- function(yyyy) {i <- (yyyy+9) %% 12; i <...
> get.十二支(2006)
[1] "戌(いぬ)"
--応用例？？ その2
> matrix(いろは,7)
[,1] [,2] [,3] [,4] [,5] [,6] [,7]
[1,] "い" "ち" "よ" "ら" "や" "あ" "ゑ"
[2,] "ろ" "り" "た" "む" "ま" "さ" "ひ"
[3,] "は" "ぬ" "れ" "う" "け" "き" "も"
[4,] "に" "る" "そ" "ゐ" "ふ" "ゆ" "せ"
[5,] "ほ" "を" "つ" "の" "こ" "め" "す"
[6,] "へ" "わ" "ね" "お" "え" "み" "い"
[7,] "と" "か" "な" "く" "て" "し" "ろ"
Warning message:
行列のデータ長 [47] が行数 [7] を整数で割った、もしくは...
R の特徴のリサイクルのため最後の列に破綻が生じるが，7行目...
-R に元々用意されているもの
--曜日
> format(ISOdate(2000, 8, 20:26), "%a")
[1] "日" "月" "火" "水" "木" "金" "土"
> format(ISOdate(2006, 8, 20:26), "%A")
[1] "日曜日" "月曜日" "火曜日" "水曜日" "木曜日" "金曜日...
--月
> format(ISOdate(2000, 1:12, 1), "%B")
[1] "1月" "2月" "3月" "4月" "5月" "6月" "7月" "8...
[11] "11月" "12月"
--時間
> format(ISOdate(2006, 8, 21, 18, 31, 32), "%X")
[1] "18時31分32秒"
ページ名:
![[RjpWiki]](image/../Rlogo.png "[RjpWiki]")
