カテゴリー: Programming

R csvファイルの読込方法　　read.csv

/ kurokuma / コメントする

ファイルデータの先頭行に行名がある場合には、次のとおり。
なお、このデフォルトでは、csvファイルの先頭行があることが前提とされている。

x <- read.csv("ファイル名.csv")

 

先頭行に行名がない場合には、次のとおり。

x <- read.csv("ファイル名.csv",header=FALSE)

 

なお、Rでエクセルファイルを読み込むのは、トラブルの元なので、使用しない方がよいと言う考え方もある。エクセルファイルを読み込みできるパッケージを用いるのも、煩雑であり、トラブルの原因となるので、避けた方がよさそうである。

エクセルファイルを読み込む場合には、エクセルソフトで、csvに変換してから、Rに読み込んだ方が、結果としてトラブルが生じにくい。

なお、read.csvも必要なく、read.tableを使えば足りるする考えもある。

結局のところ、様々なファイル形式を読み込む関数があるものの、トラブルが少なくて、扱いやすい方法を用いる方が無難なようである。

Rは、統計ソフトであり、様々な形式を持つ他のファイルからデータを取り込むことが多いのであるが、初心者にとってはデータの取込自体が面倒であり、覚えにくい。本に書いてあっても、読むだけではすっきりと理解し難いので、実際にデータを取り込んで馴れるほかないように思う。

R　数当てゲーム Ver.1.1

/ kurokuma / コメントする

数当てゲームのR版です。

Python3で作成した数当てゲーム(Ver.1.1)と同様のものです。
乱数発生の関数、ループや条件分岐の記述の仕方が違います。

RStudioにプログラムコードを貼り付けて、実行してみて下さい。


## 数当てゲーム
max_number <- readline("当てる数の範囲を決めます。一番大きい数は何にしますか？")
numbers <- 0:max_number
a = sample(numbers,1)
print("回答は10回までです。ではスタート！")
for (c in 1:10) {
    cat(c);cat("回目です。")
    x <- readline("数を当てて下さい？")
    if (x==a){
        print("正解です！")
        cat(c);cat("回で正解しました。おめでとう！")
        break}
    else if (x>a){
        print("数が大きすぎます。もっと小さい数です。")}
    else{ print("数が小さすぎます。もっと大きい数です。")}}
if (c == 10){
    cat("10回全て間違いでした。残念！")
    cat("正解は");cat(a);cat("でした。")}

			

	

			
				


	

		
Python3 数当てゲーム Ver.1.1

			

		
					
				 / 
			
				kurokuma			
		
						 /  コメントする
					

				


		

		
Python3を使って、数当てゲームのプログラムを作成してみました。


単純なプログラムですが、ループや条件分岐も用いられています。

乱数を発生させる関数も用いています。




''' 数当てゲーム '''
import random
max_number = int(input("当てる数の範囲を決めます。一番大きい数は何にしますか？"))
a = random.randint(1,max_number)
print("回答は10回までです。ではスタート！")
for c in range(0,10):
    print(c+1,end="")
    print("回目です。")
    x= int(input("数を当てて下さい？"))
    if x == a:
        print("正解です！")
        print(c+1,end="")
        print("回で正解しました。おめでとう！")
        break
    elif x > a:
        print("数が大きすぎます。もっと小さい数です。")
    else: print("数が小さすぎます。もっと大きい数です。")
    if c == 9:
        print("10回全て間違いでした。残念！正解は{}でした。".format(a))