Rstudioがクラッシュする？

Rstudio初心者なのですが、
表題の通り、特に前触れなく(それほど大きい処理を行ったわけでもなく、)
・下記画像右のようにRstuioで操作するファイル名が赤くなり、上書き保存ができなくなる
・下記画像左のように、プログラムの実行ができなくなる

という不具合が生じています。ぐぐっても類似の症状が出てこなかったので質問させていただきました。この原因と考えられる対策を教えていただけませんか。

追記
コードを追記しました。


# (3) データの読み込み
email_data <- read_csv("http://www.minethatdata.com/Kevin_Hillstrom_MineThatData_E-MailAnalytics_DataMiningChallenge_2008.03.20.csv")

# (4) データの準備
## 女性向けメールが配信されたデータを削除したデータを作成
male_df <- email_data %>%
  dplyr::filter(segment != "Womens E-Mail") %>% # 女性向けメールが配信されたデータを削除
  mutate(treatment = ifelse(segment == "Mens E-Mail", 1, 0)) #介入を表すtreatment変数を追加

# (5) 集計による比較
## group_byとsummairseを使って集計
summary_by_segment <- male_df %>%
  group_by(treatment) %>% # データのグループ化
  summarise(conversion_rate = mean(conversion), # グループごとのconversionの平均
            spend_mean = mean(spend), # グループごとのspendの平均
            count = n()) # グループごとのデータ数
print(summary_by_segment)  
  
# (6) t検定を行う
## (a)男性向けメールが配信されたグループの購買データを得る
mens_mail <- male_df %>%
  dplyr::filter(treatment == 1) %>%
  pull(spend)

この場合、## group_byとsummairseを使って集計
より下のコードをctrl+enterで実行しようとすると # (5) 集計による比較
とだけコンソールに出力され、コードが急に実行されなくなります。

それからは、同一のセルを実行しようとしても

> # (5) 集計による比較
# (5) 集計による比較
# (5) 集計による比較

のようにコメント部分を出力するのみで、どんどん実行していっても文字列だけがこんそーつに出力される状態です。

コンソールの出力、「> # (5) 集計による比較」以降はコードが一切実行されず文字列のみコンソールに出力されています。ほぼ毎回クラッシュします。

> # (3) データの読み込み
> email_data <- read_csv("http://www.minethatdata.com/Kevin_Hillstrom_MineThatData_E-MailAnalytics_DataMiningChallenge_2008.03.20.csv")
Rows: 64000 Columns: 12                          
-- Column specification ---------------------------
Delimiter: ","
chr (4): history_segment, zip_code, channel, se...
dbl (8): recency, history, mens, womens, newbie...

i Use `spec()` to retrieve the full column specification for this data.
i Specify the column types or set `show_col_types = FALSE` to quiet this message.
> # (4) データの準備
> ## 女性向けメールが配信されたデータを削除したデータを作成
> male_df <- email_data %>%
+   dplyr::filter(segment != "Womens E-Mail") %>% # 女性向けメールが配信されたデータを削除
+   mutate(treatment = ifelse(segment == "Mens E-Mail", 1, 0)) #介入を表すtreatment変数を追加
> # (5) 集計による比較
-----------------ここから下はもうバグっている状態でコードが実行されず、セーブもできなくなっています。----------------------
# (5) 集計による比較
# (5) 集計による比較

print(summary_by_segment)  
# (6) t検定を行う
## (b)メールが配信されなかったグループの購買データを得る
## (a)(b)の平均の差に対して有意差検定を実行する
# (7) セレクションバイアスのあるデータの作成
## 条件に反応するサンプルの量を半分にする
obs_rate_t <- 0.5
## バイアスのあるデータの作成

Daregada

2021/09/11 05:38

コードもコンソールも一部しか見えていない状態で回答するのは難しい。差し支えなければ、それぞれの内容を文字で(RStudioからのコピーを貼り付けて)質問文に載せてください。コードでreadLinesしている部分はありますか?

esklia

2021/09/11 08:06

失礼しました。ただいま追記完了いたしました。

esklia

2021/09/11 08:07

readlinesとはコードが実行されているかどうかを意味していますか？その場合コードはバグった時点で一切実行されずコンソールに文字列のみが出力される状態になります。

Daregada

2021/09/11 08:34

readLinesはファイルからデータを読む関数です。提示されたコードでは使っていませんね。コードに書いてありませんが、read_csvを使うのにtidiverseのインストールとライブラリ読み込みが必要ですね。それをやった状態で、提示されたコードをSourceで実行したところ、問題なく最後まで処理されて、mens_mailを計算できました。