技术问答r璇█鎬庝箞鐢熸垚1鍒?00鐨勯殢鏈烘暟 - 扬州沐宇科技

鍦≧璇█涓紝鍙互浣跨敤鍑芥暟sample()鏉ョ敓鎴?鍒?00鐨勯殢鏈烘暟銆傚叿浣撴搷浣滃涓嬶細

# 鐢熸垚1鍒?00鐨勯殢鏈烘暟
random_numbers <- sample(1:100, size = n, replace = FALSE)

鍏朵腑锛?code>sample()鍑芥暟鐨勭涓€涓弬鏁版槸鎸囧畾鐢熸垚闅忔満鏁扮殑鑼冨洿锛屾澶勪负1鍒?00銆?code>size鍙傛暟鎸囧畾鐢熸垚闅忔満鏁扮殑涓暟锛?code>replace鍙傛暟鎸囧畾鏄惁鍙互閲嶅鎶芥牱銆傚湪姝や緥涓紝鎴戜滑灏?code>replace鍙傛暟璁剧疆涓?code>FALSE锛岃〃绀轰笉鍏佽閲嶅鎶芥牱銆?/p>

浣犱篃鍙互灏?code>n鏇挎崲涓哄叿浣撶殑闅忔満鏁颁釜鏁帮紝渚嬪锛屽鏋滀綘闇€瑕佺敓鎴?0涓殢鏈烘暟锛屽彲浠ュ皢n璁剧疆涓?0锛?/p>

# 鐢熸垚10涓?鍒?00鐨勯殢鏈烘暟
random_numbers <- sample(1:100, size = 10, replace = FALSE)

杩欐牱灏卞彲浠ョ敓鎴?鍒?00涔嬮棿鐨?0涓殢鏈烘暟浜嗐€?/p>